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