TCloseQueryEvent = procedure (Sender: TObject; var CanClose: Boolean)

Событие перед закрытием окна.

Параметры:

• Sender - источник события.
• CanClose - True, если окно можно закрыть и False - в ином случае.

Ссылки: TForm.OnCloseQuery