Problemas con el TreeView y los nodos

[ruina]

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;

no se si es esto lo que querias....