Topic: Обработка выхода по крестику
Есть код, но выдает ошибку при выходе. Подскажите может есть другой способ.
procedure Form1_BtnExit_OnClick (Sender: string; var Cancel: boolean); //ВЫХОД ИЗ ПРОГРАММЫ
begin
if MessageDlg('Вы действительно хотите выйти ?',mtConfirmation, mbYes + mbNo,0)=mrYes then
form1.close;
end; //ВЫХОД ИЗ ПРОГРАММЫ
procedure Form1_OnClose (Sender: string; Action: string);
begin
Form1.BtnExit.Click;
end;