Source position: fbeventmonitor.pp line 51
type TErrorEvent = procedure(
Sender: TObject;
ErrorCode: Integer
) of object;