Source position: pscanner.pp line 1367
function ExtractFileUnitName(
const aFilename: string
):string;