tmainmenu - neuer unterpunkt zur laufzeit

[Tomsn]

Hallo Leute,

weiß jemand, wie man im Delphi-tmainmenu zu einem Menüpunkt, zur Laufzeit einen Unterpunkt erstellen kann?

Ich habe es schon geschafft, einen Menüpunkt zur Laufzeit hinzuzufügen, mit dem Programmcode:

Delphi-Quellcode:

var
  neuesitem: tmenuitem;

neuesitem := TMenuItem.Create(mainmenu1) ;
neuesitem.Caption := 'hallo';
mainmenu1.items.add(neuesitem);

Nun möchte ich jedoch einen Unterpunkt zu diesem Menüpunkt erstellen. Könnte mir da jemand helfen? ^^