Добавление дочернего элемента в XML

_di_IXMLDocument  XMLDocument= NewXMLDocument();
 XMLDocument->LoadFromFile(FileName);
 IXMLNode *node, *nodeDiscret, *nodeRoot;
  try
  {
    node=XMLDocument->DocumentElement;
    nodeDiscret = node->AddChild("Discrete");
    for (int i = 0; i < Result->RowCount-1; i++)
    {
    IXMLNode *nodNew =nodeDiscret->AddChild("D");

 try
  {
    node=XMLDocument->DocumentElement;
    nodeSub=node->ChildNodes->FindNode("Discrete");
    if(!nodeSub)
    {
    nodeDiscret = node->AddChild("Discrete");
     for (int i = 0; i < Result->RowCount-1; i++)
     {
      IXMLNode *nodNew =nodeDiscret->AddChild("D");
     }
    }
    else
    {
       for (int i = 0; i < Result->RowCount-1; i++)
       {
        IXMLNode *nodNew =nodeDiscret->AddChild("D");
       }
    }
    XMLDocument->SaveToFile(FileName);
    XMLDocument->Active = false;

    else
    {
       // удаляешь дочерние элементы в цикле через nodeSub->ChildNodes->Delete("D");
       for (int i = 0; i < Result->RowCount-1; i++)
       {
        IXMLNode *nodNew =nodeSub->AddChild("D");
       }
    }

    else
    {
        // удаляешь дочерние элементы в цикле через
        int index = -1;
        do
        {
            index = nodeSub->ChildNodes->Delete("D");
        }
        while (index > -1);
 
        for (int i = 0; i < Result->RowCount - 1; i++)
        {
            IXMLNode *nodNew = nodeSub->AddChild("D");
        }
    }