Работа с XML файлами. вывод в TreeView

typedef struct tagXMLNODEData
 {
   _di_IXMLNode XMLNode; //Класс - описывает узел дерева (корень)
 } XMLNodeData;
 
//Функция построения дерева
void __fastcall TfLoadXMLForm::FillTreeView(TTreeNodes *ATreeNodes, TTreeNode *ATreeNode, _di_IXMLNode AXMLNode)
 {  
   TTreeNode *pTreeNode;  //узел
   TTreeNode *pAdditionalTreeNode; // след.узел
 
   if(AXMLNode->ChildNodes->Count) //Проверяем, есть ли у корневого узла - дочерние узлы.
     { // Если есть узлы
       pTreeNode = ATreeNodes->AddChild(ATreeNode, AXMLNode->NodeName); // Добаляем дочерний узел
        // заносим XML-данныее в узел дерева (создается структура)
        FpXMLNodeData = new XMLNodeData;
       FpXMLNodeData->XMLNode = AXMLNode;// Заносится текущий узел
       pTreeNode->Data = FpXMLNodeData;
 
       for(int i = 0; i < AXMLNode->ChildNodes->Count; i++) //Цикл по всем дочерним узлам
         FillTreeView(ATreeNodes, pTreeNode, AXMLNode->ChildNodes->Nodes[i]); //Вызов функции , где pTreeNode - новые элементы, AXMLNode - дочерний узел исходного узла
     }
   else  //Если нету, то заносится новый узел в качестве дочернего узела к корневому узлу
     {
       pAdditionalTreeNode = ATreeNodes->AddChild(ATreeNode, AXMLNode->NodeName); //Заносим новый узел
 
        // заносим XML-данныее в узел дерева  (вызов структуры)
        FpXMLNodeData = new XMLNodeData;
       FpXMLNodeData->XMLNode = AXMLNode;//Текущий узел
       pAdditionalTreeNode->Data = FpXMLNodeData;//Адрес структуры
     }
   // конец оператора if(AXMLNode->ChildNodes->Count)
 }