Popupmenu -> NewSubMenu ?

[Trafel21]

Hallo zusammen,

ich möchte zur Laufzeit einem TMenuItem im PopupMenu mehrere Untermenu Einträge hinzufügen.

Es funktioniert zwar, aber es wird einfach immer wieder ein weiteres TMenuItem mit einem Untermenu Eintrag erstellt anstatt einem TMenuItem mehre Untermenu Einträgen. Ich suchte schon eine Art "AddSubMenu" Funktion, wurde leider nur nicht fündig.

Code:

  
with IB_CONTACT do
    if RecordCount > 0 then
    begin
      DisableControls;
      try
        lBookMark := GetBookmark;
        try
          First;
          while not eof do
          begin
            if(IB_CONTACTCONTACTTYPE_INCKEY.AsInteger = 100) then
            begin
            lPhoneNumber := IB_CONTACTCONTACT_CONTENTVALUE.AsString;

              PopupMenu1.Items.Add(NewSubMenu('Telefonnummer zuweisen',0,'',
              [
              NewItem(lPhoneNumber,0,False,True,OnClick,0,'')
              ]));

            end;
            Next;
          end;
        finally
          GotoBookmark(lBookMark);
          FreeBookmark(lBookMark);
        end;
      finally
        EnableControls;
      end;
    end;
   end;

Kann mir jemand in der Hinsicht bitte weiterhelfen?