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

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