Source position: pqeventmonitor.pp line 48
type TEventAlert = procedure(
Sender: TObject;
EventName: string;
EventCount: LongInt;
var CancelAlerts: Boolean
) of object;