Source position: eventlog.pp line 39
type TLogMessageEvent = procedure(
Sender: TObject;
EventType: TEventType;
const Msg: string
) of object;