TFatalErrorEvent = procedure (Sender: TObject; const Msg: String; var Accept: Boolean)

Событие, возникающее при неожиданной ошибке.

Параметры:

• Sender - источник события.
• Msg - сообщение об ошибке.
• Accept - установите в True, если хотите обработать ошибку самостоятельно и не показывать окно «Опа!».

Ссылки: TMainFm.OnFatalError