TCloseQueryEvent = procedure (Sender: TObject; var CanClose: Boolean)
Событие перед закрытием окна.
Параметры:
Ссылки: TForm.OnCloseQuery