[projger]

знаю что код для реализации этой функции нужно вставить в событие form.close, но какой кое не знаю. за любую помощь буду очень благодарен!

[Rokuell]

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if MessageDlg('Вы действительно хотите закрыть программу?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
   // завершение программы разрешено
  end
 else
  begin
   // завершение программы запрещено
   // например, можно запретить ей закрыться, сделав так:
   Action:=caNone;
  end;
end;

[projger]

огромное спасибо! великолепный форум!

[PhoeniX]

А CloseQuery вам на что, ребята?

[Михалыч]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := MessageDlg('Вы действительно хотите выйти из программы?',mtConfirmation,[mbYes,mbNo],0)=IDYes // по-английски
CanClose := MessageBox(Application.Handle,'Вы действительно хотите выйти из программы?','Предупреждение',MB_YESNO)=ID_YES; //по-русски
end;