TTreeElement

type TTreeElement = record

  Next: PTreeElement;

  Parent: PTreeElement;

  Child: PTreeElement;

  CanBeTerminal: Boolean;

  char: Byte;

  ScanValue: Byte;

  CharValue: Byte;

  ShiftValue: TEnhancedShiftState;

  SpecialHandler: Tprocedure;

end;