Source position: pparser.pp line 184
type TPasParserLogHandler = procedure(
Sender: TObject;
const Msg: string
) of object;