Source position: custweb.pp line 39
type TLogEvent = procedure(
EventType: TEventType;
const Msg: string
) of object;