TMenuItem

type TMenuItem = packed record

  Next: PMenuItem;

  Name: Sw_PString;

  Command: Word;

  Disabled: Boolean;

  KeyCode: Word;

  HelpCtx: Word;

  Param: UnicodeString;

  SubMenu: PMenu;

end;