[poli-smen]

Сообщение от DeOne

Вылетает ошибка

У меня ничего не вылетает. Тоже Delphi 7.
Попробуй ещё так:

Код:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PostMessage(Application.Handle, WM_QUIT, 0, 0);
end;