Source position: pscanner.pp line 1010
public property TPascalScanner.CurTokenPos : TPasSourcePos read FCurTokenPos;