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