Código Delphi [-] for i:=0 to TreeView1.Items.Count do begin if TreeView1.Items[i].Text='1.1.1.01.00' then TreeView1.Items.AddChild(TreeView1.Items[i],'1.1.1.01.01') end;
for i:=0 to TreeView1.Items.Count do begin if TreeView1.Items[i].Text='1.1.1.01.00' then TreeView1.Items.AddChild(TreeView1.Items[i],'1.1.1.01.01') end;