Fórum Itens do Menu em um memo... #224724

Ola Pessoal!

Alguem ai sabe como eu pego os itens do menu e coloco num memo, pode ser para cada item no menu uma linha... eu fiz o seguinte codigo:
procedure TForm1.Button8Click(Sender: TObject);
var
b,a,c,i:Integer;
begin
for i:=0 to Menu.Items.Count-1 do
begin
Memo1.Lines.Add(IntToStr(i)+´_´+Menu.Items[i].Name);
for c:=0 to Menu.Items.Items[i].Count-1 do
begin
Memo1.Lines.Add(IntToStr(i)+´.´+IntToStr(c)+´_´+Menu.Items[i].Items[c].Name);
for a:=0 to Menu.Items.Items[i].Items[c].Count-1 do
begin
Memo1.Lines.Add(IntToStr(i)+´.´+IntToStr(c)+´.´+IntToStr(a)+´_´+Menu.Items[i].Items[c].Items[a].Name);
for b:=0 to Menu.Items.Items[i].Items[c].Items[a].Count-1 do
Memo1.Lines.Add(IntToStr(i)+´.´+IntToStr(c)+´.´+IntToStr(a)+IntToStr(b)+´_´+Menu.Items[i].Items[c].Items[a].Items[b].Name);
end;
end;
end;
end;

Funcionou... o problema é q se o menu tiver mais de 2 sub-itens nao vai aparecer no memo, alem disso falta implementar algumas muitas coisas, como diferenciar o q é linha do que separador, etc...

Valeu i!!!!