Source position: fpmkunit.pp line 166
type TLogEvent = procedure(
Level: TVerboseLevel;
const Msg: string
) of object;