TMenuItem

type TMenuItem = packed record

  Next: PMenuItem;

  Name: Sw_PString;

  Command: Word;

  Disabled: Boolean;

  KeyCode: Word;

  HelpCtx: Word;

  case SmallInt of

    0: (

        Param: PString;

      );

    1: (

        SubMenu: PMenu;

      );

end;