Добавление элементов в TreeView на основе существующих

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TreeView1->Items->Add(NULL, "Главная");
  TTreeNode *Parent = TreeView1->Items->Item[0];
  Parent = TreeView1->Items->AddChildFirst(Parent, "Первая");
  Parent = TreeView1->Items->AddChildFirst(Parent, "Вторая");
  Parent = TreeView1->Items->AddChildFirst(Parent, "Третья");
  TreeView1->Items->AddChild(Parent, "Файл");
}

TTreeNode *Add(TTreenode *N, AnsiString S);
TTreeNode *AddFirst(TTreenode *N, AnsiString S);
TTreeNode *AddChild(TTreenode *N, AnsiString S);
TTreeNode *AddChildFirst(TTreenode *N, AnsiString S);
TTreeNode *Insert(TTreenode *N, AnsiString S);

TreeView->Items->Item[0]->Text = "ееее";
TreeView->Items->Item[1]->Text = "aaaa";
TreeView->Items->Item[2]->Text = "oooo";
 
TreeView1->Selected->Text = "ssss";
 
TTreeNode *tmp_node;
tmp_node = Tree->Items->AddChild(Parent, "gggg");
tmp_node->Text = "dddd";

TTreeNode * __fastcall TForm1::RecNod(char *s, TTreeNode *nod)
{ int j, n; char *q; TTreeNode *nd;
   n = atoi(s);
   if (nod==NULL) nd = TreeView1->Items->Item[0];
   else nd = nod->getFirstChild();
   for(j=0; j<n && nd!=NULL;j++) {
       nd = nd->getNextSibling();
   }
   if (nd==NULL) return(nd);
   q = strplus(s, '-');
   if (q==NULL) return(nd);
   else return RecNod(q, nd);
}

TreeView1->Items[i].c_str()