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