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