Source position: pscanner.pp line 1000
public property TPascalScanner.CurSourceFile : TLineReader read FCurSourceFile;