Table1.Delete的问题？

Question

把我都搞昏了，这段看起来简单的程序运行起来总有错；procedure TForm1.Button3Click(Sender: TObject);
begin
if messagebox('确认删除吗？','提示',Mb_YESNO)=ID_YES then
     table1.delete;
end;请问这段程序有问题吗？

Answer 1

这样写:procedure TForm1.Button3Click(Sender: TObject);
begin
if messagebox('确认删除吗？','提示',Mb_YESNO)=ID_YES then
begin //就加这句.    
table1.delete;
end;
end;

Answer 2

不会吧!procedure TForm1.deleteClick(Sender: TObject);
var
  ReKey:integer;
begin
  Rekey:=messagedlg('确实要删除该条纪录吗？',mtInformation,[mbYes,mbNo],0);
  if Rekey=6 then
    begin
     form1.Table1.delete;
    end;
end;

Answer 3

if messagedlg('确认删除吗？','提示',[mbyes,mbno],0)=mryes then table1.delete;

Answer 4

messagedlg('删除了！',mtinformation',[mbyes,mbno],0)=mryes

Answer 5

mtinformation后的‘ 去掉
应该是这样的：
messagedlg('删除了！',mtinformation,[mbyes,mbno],0)=mryes