tMenuItem

type tMenuItem = record

  NextItem: pMenuItem;

  LeftEdge: SmallInt;

  TopEdge: SmallInt;

  Width: SmallInt;

  Height: SmallInt;

  Flags: Word;

  MutualExclude: LongInt;

  ItemFill: Pointer;

  SelectFill: Pointer;

  Command: Char;

  SubItem: pMenuItem;

  NextSelect: Word;

end;