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