Source position: pscanner.pp line 706
type TPScannerLogHandler = procedure(
Sender: TObject;
const Msg: string
) of object;