Fórum Dificuldades com Componenete TMainMenu #177696

Tenho esta funcção que Insere num Componente TTreeView todos os caption dos Itens de Menu.
procedure TForm1.Insere_TreeView(TreeView : TTreeView; Menu : TMainMenu; ItemMenu : TMenu);
var
I , J, Posicao : Integer;
ItemPrincipal, ItemSubItem : TMenuItem;
Nodulo1, Nodulo2 : TTreeNode;
Titulo1, Titulo2 : string;
begin
trvPrincipal.Items.Clear;
Nodulo1 := nil;
Nodulo1 := trvPrincipal.Items.Add(Nodulo1, ´Testando´);

for I := 0 to Menu.Items.Count -1 do
begin
ItemPrincipal := ItemMenu.Items[I];
Titulo1 := ItemPrincipal.Caption;
Posicao := Pos(´&´, Titulo1);

if Posicao <> 0 then
begin
Delete(Titulo1, Posicao, 1);
end;

Nodulo2 := trvPrincipal.Items.AddChild(Nodulo1, Titulo1);

for J := 0 to ItemPrincipal.Count - 1 do
begin
ItemSubItem := ItemPrincipal.Items[J];

Titulo2 := ItemSubItem.Caption;
Posicao := Pos(´&´, Titulo2);

if Posicao <> 0 then
begin
Delete(Titulo2, Posicao, 1);
end;

if ItemSubItem.Caption <> ´-´ then
begin
trvPrincipal.Items.AddChild(Nodulo2, Titulo2)
end;
end;
end;
end;
Porém não consigo inserir no TreeView os os Caption dos SubMenus, como fazer isso?
Obrigado.