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