Подтверждение перед удалением из ACCESS

[KOPOTKOB]

Добрый день/вечер...Суть проблемы такова
Таблица выводится в дбгрид вот код удаления строки из Бд

procedure Tcorovi.Button3Click(Sender: TObject);
var
a:integer;
begin
  a:=self.ADODataSet1.FieldByName('Kod_korovy').AsInteger;
  self.ADOdelete.Parameters.ParamByName('m').Value:=a;
  self.ADOdelete.Execute;
  self.ADOdataSet1.Close;
  self.ADOdataSet1.Open;
end;

Как сделать чтобы перед удалением вызывалось окно с потвержденим на удаление?? Помогите плиз...
а то завтра курсач надо сдать

[mihali4]

Что же тут такого страшного?
С диалогами знакомы?

if MessageDlg('Удалить?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
exit;

[KOPOTKOB]

Можно подробнее??

СПАСИБО БОЛЬШОЕ СПРАВИЛСЯ...ворум ваще класс...

[Droid]

Сообщение от KOPOTKOB

Можно подробнее??

s:=MessageDlg('Удалить запись ?',mtWarning,[mbNO,mbOK],0);
if s=mrOK then
  begin
   тут твой запрос
  end
else
  if s=mrNO then
  begin
   form1.Close;
  end;