Untermenü zur Laufzeit erzeugen

[Tom]

Delphi-Quellcode:

  vsPopupAdd := TMenuItem.Create( ... );
  vsPopupAdd.Caption := 'Eintrag hinzufügen ...';
  vsPopup.Items.Add( vsPopupAdd );

  vsPopupAddGroup := TMenuItem.Create( AOwner );
  vsPopupAddGroup.Caption := '... Gruppe';
  ...
  vsPopupAdd.Add( vsPopupAddGroup );

Alles klar?