Menü Einträge aus einem TMainMenu löschen

[commandah]

Hallo, ich habe ein MainMenu, bei dem ich zur Laufzeit einige MenuEinträge hinzufüge.

Der name dieses MenuItems ist dann immer ent +der nummer des eintrages z.B ent0, ent1 usw.

und jetzt möchte ich das Menu ent0 z.b erst leeren (also clear) und dann ganz aus dem HauptMenu Entfernen, aber irgendwie klappt das nicht.


So ich habe schon eine Schleife gemacht, die leider gar nicht funktioniert.
in entnr steht die anzahl der Zur laufzeit erstellten MenuItems z.B 1 damit er in der schleife ent0 und ent1 nimmt.

Delphi-Quellcode:

var
i:integer;
TheName:String;
Item:TMenuItem;
comp: TComponent;
begin
for i:=0 to entnr do begin
 TheName:='ent'+inttostr(i);
  Comp := FindComponent(TheName);
  Item:= Comp as TMenuItem;
  Item.Clear;
  Item.Free;
end;

end;