生手求教private Sub cmdNext_Click()什么意思

新手求教private Sub cmdNext_Click()什么意思？
例如删除按钮的代码：

   
  priavte Sub cmdNext_Click()  
  procedure Tform.Button4Click(Sender: TObject);  
  begin  
  if MessageDlg('确定要删除记录吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then  
  begin  
  table.Edit;  
  table1.Delete;  
  table1.Post; 
  end;
  end;

[解决办法]
priavte Sub cmdNext_Click()
应该是VB的语法
在DELPHI中不能编译的
[解决办法]
你看的是什么书哦？ delphi不可能这么写啊。把priavte Sub cmdNext_Click() 这一行去掉还差不多。