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