Source position: fpg_main.pas line 98
type TExceptionEvent = procedure(
Sender: TObject;
E: Exception
) of object;