Как остановить программу

[Ayubkhon]

Здравствуйте! Как остановить программу по мимо "exit'?

[Пепел Феникса]

Application.Terminate
ExitProcess(0);
halt//вроде

[Ayubkhon]

Сообщение от Пепел Феникса

Application.Terminate
ExitProcess(0);
halt//вроде

какую из них лучше поставить у меня при закрытии формы в событии OnClose вызывается вот код:

rocedure Tfanketa_edt.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if not(izmen) then
    if Application.MessageBox('Сохранить?', 'Внимание',
      MB_YESNO+MB_ICONQUESTION) = IDYES then btnvorid.OnClick(sender);
  Action:=caFree;
end;

А вот код кнопки btnVorid:

procedure Tfanketa_edt.btnvoridClick(Sender: TObject);
begin
  if Edit.Text='' then
    begin
    messagebox(application.Handle,'Введите значени!', 'Внимание',     MB_ICONEXCLAMATION+mb_systemmodal);
    Edit.SetFocus;
    exit;
  end
end;

Как сделать так что бы при выполнении условии форма не закрывалась?

[Пепел Феникса]

от exit в том случае нет смысла.(exit не закрывает форму, и вы задали вопрос насчет завершения программы, а о форме ничего не сказали)
за закрытие формы отвечает первый код, в нем условие то выполняется или нет?

[Ayubkhon]

Сообщение от Пепел Феникса

от exit в том случае нет смысла.(exit не закрывает форму, и вы задали вопрос насчет завершения программы, а о форме ничего не сказали)
за закрытие формы отвечает первый код, в нем условие то выполняется или нет?

Да если в диалоговом окне нажать на кнопку "ДА".

[MMM_Corp]

Halt(0); - быстрее всего

[igh0st]

ExitProcess(0);