[v1s2222]

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  NowQuit := True;
end;