Fórum Preencher um treeview com o menu do form falha... #290697

procedure TForm1.Button2Click(Sender: TObject);
var 
X,I:Integer;
node :ttreenode;
begin 
with Treeview1.Items do // compoente treeview
begin
Clear; 
// menu principal - eo componente menu
for I := 0 to Form1.MainMenu1.Items.Count-1 do
  if Form1.MainMenu1.Items[I].Caption <> ´-´ then
  begin
      node := Add(nil,Form1.MainMenu1.Items[I].Caption);
      // preenche sub menu
     for X := 0 to form1.MainMenu1.Items[I].Count -1 do
     begin
       if Form1.MainMenu1.Items[I].Items[X].Caption <> ´-´ then
       AddChild(node,form1.MainMenu1.Items[I].Items[X].Caption);
      end;
  end;
end;