Source position: pscanner.pp line 1278
procedure ReadNextPascalToken(
var Position: PChar;
out TokenStart: PChar;
NestedComments: Boolean;
SkipDirectives: Boolean
);