TTokenType

type TTokenType = (

  ttPlus,

  ttMinus,

  ttLessThan,

  ttLargerThan,

  ttEqual,

  ttDiv,

  ttMod,

  ttMul,

  ttLeft,

  ttRight,

  ttLessThanEqual,

  ttLargerThanEqual,

  ttunequal,

  ttNumber,

  ttString,

  ttIdentifier,

  ttComma,

  ttAnd,

  ttOr,

  ttXor,

  ttTrue,

  ttFalse,

  ttNot,

  ttif,

  ttCase,

  ttPower,

  ttEOF

);