Source position: menus.inc line 135
type TMenu = packed record
Items: PMenuItem;
Default: PMenuItem;
end;