Source position: pscanner.pp line 953
protected procedure TPascalScanner.SetCurTokenString(
const AValue: TPasScannerString
);