te creëren, en loopt nog een menu?,,type,, TForm1 = class(TForm),, ...,, private,, procedure MenuClick(Sender: TObject);,, ...,,, NewMenu := TMenuItem.Create(nil); //Self not needed,, with NewMenu do,, begin,, Caption := '&Test';,, OnClick := MenuClick; //,, end;,, MainMenu1.Items.Add(NewMenu); //New Main menu,, MainMenu1.Items[0].Add(NewMenu); //New menuitem,,, NewItem,, NewLine,, MewMenu,, NewPopupMenu,, NewSubMenu,,, MainMenu1.Items.Add(NewItem('&Test', 0, True, True, nil, 1101, ''));,, MainMenu1.Items[0].Add(NewSubMenu('&Test', 0, 'AName2',,, [NewItem('&Test1', 0, True, True, nil, 0, ''),, , , NewItem('&Test2', 0, True, True, nil, 0, '')]));,, MainMenu1.Items[0].Add(NewLine)En newpopupmenu;,, (zelf, Ole ", paleft, echt,,, nieuwe producten (" & 2, 0, echt, echt, 0, 0, "), en nieuwe producten (" & test2, 0, echt, echt, 0, 0 ")]), (10), de POP - up,,,