Menü einträge durchlaufen

[kingflo]

Hallo...
vielleicht kann mir jemand helfen...

ich muss in einer schleife alle menüeintrage durchlaufen, aber nicht die übereinträge.

Also im Hauptmenu gibt es z.B Datei , Bearbeiten, Ansicht usw... unter datei gibt es dann z.B neu, öffnen usw
hier bräuchte ich jetzt also den namen von neu (z.B neu1) und von öffnen (ffnen1) usw...

Problem ist nur, das neu z.B auch untereinträge haben kann wie z.B Datei, dokument, bild oder so und das diese Items auch wieder untereinträge haben könnten.

Bis jetzt habe ich es so gemacht:

Delphi-Quellcode:

var
i,y:integer;
begin
  for i:=0 to Menu.Items.Count-1 do begin
    for y:=0 to menu.items.Items[i].Count-1 do begin
     ShowMessage(Menu.Items[i].Items[y].name);
    end;

  end;
end;

ist aber keine gute lösung, da weiter untereinträge nicht berücksichtigt werden können also muss ich es anders machen...
nur leider hab ich kein plan wie...

hat da jemand zufällig ne gute idee