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