Hola, solucione el problema con un objeto de lo Jedi pero ahora lo necesito.
Lo de antes no me sirve porque el numero de menus puede variar asi komo el de los niveles.
Habia pensado en la recursividad pero nuca la e pillado bien, asi estaria bien?
Código Delphi
[-]procedure TForm93.recorrer_menu(menu: tMenuItem);
var
i,j: integer;
begin
while i<=menu.Count do
begin
j:=0;
while j < menu.Items[i].Count do
begin
Memo2.lines.add(menu.Items[i].items[j].name);
recorrer_menu(menu.Items[i].items[j]);
j:=j+1;
end;
i:=i+1;
end;
end;