Recorrer un menu

[Ubed]

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;