Popup Menu - Untereinträge hinzufügen und löschen

[Natalia]

Hi Leute,

ich möchte zu einem PopupMenu die Untereinträge dynamisch hinzufügen und dann wieder löschen.

Mit dem Hinzufügen klappt's:

Delphi-Quellcode:

   var NewItem : TMenuItem;
   
   for i:=0 to Query1.RecordCount-1 do
    begin
    NewItem := TMenuItem.Create(Self);
    NewItem.Caption:=Query1Feld1.AsString;
    MenuItem1.Add(NewItem);
    Query1.Next;
    end;

Aber wenn ich die Untereiträge mit z. B. diesem Code lösche:

Delphi-Quellcode:

for i:=0 to Query1.Count-1 do
   begin
    MenuItem1.Items[i].Clear;
    NewItem.Free;
    end;

bekomme ich eine Fehlermeldung "Menu außerhalb des zulässigen Bereichs".
Ich habe schon auch die andere Möglichkeiten ausprobiert. Vielleicht ist es einfach, aber ich komme nicht drauf.

Danke schon mal für alle Vorschläge!

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]