新手求教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()  这一行去掉还差不多。