Source position: pscanner.pp line 978
public procedure TPascalScanner.SetTokenOption(
aOption: TTokenOption
);