procedure TForm1.Button3Click(Sender: TObject);
begin
 if Application.MessageBox('确实要删除记录?','提示',mb_YesNo)=ID_Yes  then
  begin
  with ADOQuery1 do
  begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * FROM 表名');
  Adoquery1.Open;
  Adoquery1.Delete;
  end;
  end;
end;