Переход к другой процедуре

[Detka]

Я знаю, что есть оператор goto. Приблизительно знаю как он работает. Но не могу довести до ума.
У меня по закрытию формы OnCloseQuery прописан код, сохраняющий изменения в текстовом файле. И есть команда Файл->Выход. Там мне не охота второй раз писать то же самое (да и получается с ошибкой).
Как мне по нажатию этой команды заставить выполнится код процедуры OnCloseQuery?
Помогите, пожалуйста!

[eoln]

procedure TForm1.N1Click(Sender: TObject);
var b: boolean;
begin
  Form1.FormCloseQuery(Sender, b)
end;

[Detka]

Спасибо. Работает, но с ошибкой. По нажатию крестика все пашет как надо: выскакивает сообщение "Сохранить? Да Нет Отмена" Там все работает как надо. А если по предложенному тобой коду, то после Файл->Выход появляется сообщение. Но выбрав Да, Нет либо Отмена сообщение закрывается, а форма - нет.
Надеюсь понятно выразилась...

[eoln]

Form1.FormCloseQuery(Sender, b); //выполняем процедуру
if b then application.Terminate //уходим

[Detka]

Ой, спасибки! Исчё вопросик. Что такое application.Terminate ?
Уж простите, я чайник полнейший. и F1 меня не спасает. ))

[Alter]

Невижу смысла в вызове CloseQuery, т.к это событие вызывается автоматом при закрытии формы.

[Detka]

Ну дык мне ж надо, что прога не просто закрылась. А сначала спросила: "Сохранить изменения?". Вот

[Квэнди]

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

Ой, спасибки! Исчё вопросик. Что такое application.Terminate ?
Уж простите, я чайник полнейший. и F1 меня не спасает. ))

Чем же не спасает F1 ? вот собственно из F1:

Ends application execution.
 
Class 
TApplication 

Syntax 


[Delphi] procedure Terminate();


Description 
Call Terminate to end the application programmatically. By calling Terminate rather than freeing the application object, you allow the application to shut down in an orderly fashion.
 
Terminate calls the Windows API PostQuitMessage function to perform an orderly shutdown of the application. Terminate is not immediate.
 
Terminate is called automatically on a WM_QUIT message and when the main form closes.

Вызывать в кнопке принудительно событие не имеет смысла. Напиишите close; и событие onclosequery вызовится само.