TMenu

type TMenu = record

  NextMenu: PMenu;

  LeftEdge: SmallInt;

  TopEdge: SmallInt;

  Width: SmallInt;

  Height: SmallInt;

  Flags: Word;

  MenuName: PChar;

  FirstItem: PMenuItem;

  JazzX: SmallInt;

  JazzY: SmallInt;

  BeatX: SmallInt;

  BeatY: SmallInt;

end;