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

Событие перед попыткой отключиться от базы данных.

Параметры

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

Ссылки: TMainFm.OnDatabaseCloseQuery