[ariane]

а можно организовать появление крошечной формы form2 с запросом "вы действительно хотите выйти? Да/ Нет" при наступлении события formClose формы Form1?
Я делала так, только оно не работало: form1 просто закрывалась

Код:

    

в Unit1

 procedure TForm1.FormClose (Sender: TObject; var Action: TCloseAction);
       begin
             form2.show;
       end;  

в Unit2 (подтверждение выхода)

procedure TForm2.Button1.Click( Sender: TObject);
     begin
             application.terminate;
     end;

procedure TForm2.Button1.Click( Sender: TObject);
     begin
              form2.close;
     end;