Delphi 12. MDI приложение. Событие при закрытии главной формы

Delphi 12. MDI приложение. Событие при закрытии главной формы: if MessageDlg('Вы действительно хотите выйти из программы?',mtWarning,[mbYes,mbNo],0) = mrNo then CanClose := False else begin CanClose := True; uf_WriteToLog('Main Form...