[-SnOOpY-]

Имеется некое меню MainMenu1. По нажатию на кнопку требуется вывести его структуру в Memo в формате :
Меню
-Подменю1
--Подподменю1
--Подподменю2
-Подменю2
--Подподменю3
--Подподменю3

Вот код, работающий в нескольких частных случаях :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,l: byte;
    t: tmenuitem;
begin
 t:=mainmenu1.items;
 for i:=0 to t.count-1 do
  begin
   memo1.Lines.Add(t[i].caption);
   for j:=0 to t[i].Count-1 do
   begin
    memo1.Lines.Add('-'+t[i].Items[j].Caption);
    for k:=0 to t[i].items[j].count-1 do
     begin
      memo1.Lines.Add('--'+t[i].Items[j].items[k].caption);
     end;
   end;
  end;

end;

Требуется его доработать.
Заранее спасибо за помощь !