Source position: pscanner.pp line 1002
public property TPascalScanner.CurModuleName : TPasTreeString read FCurModulename write FCurModuleName;