TCloseEvent

TCloseEvent = procedure (Sender: TObject; var Action: TCloseAction)

Событие закрытия окна.

Параметры:

• Sender - источник события.
• Action - действие при закрытии окна.

Ссылки: TForm.OnClose