и еще почему не работате вот это
procedure TForm1.FormCreate(Sender: TObject);
begin

If Messagebox(0,'Закроем???','Вопрос',MB _YesNo) <> IDYES Then
Form1.Close;
end;
Даже если вместо Form1.Close; ставлю Exit; не работает...

procedure TForm1.FormCreate(Sender: TObject);
begin
case Application.MessageBox('Закрыть приложение?','Вопрос:',MB_YesNo + Mb_iconquestion) of
Idyes: form1.Close;
IdNo: showmessage('Не закрываем');
end;
end;