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