Source position: pscanner.pp line 897
public function TPascalScanner.CheckToken(
aToken: TToken;
const ATokenString: string
):TToken;