Обработка выхода по крестику

Есть код, но выдает ошибку при выходе. Подскажите может есть другой способ.

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;