Переименование узла TXMLDocument

IXMLNode *RenameXMLTag(IXMLNode *node, String name)
{
    _di_IXMLDocument doc = node->OwnerDocument;
    _di_IXMLNode new_element = doc->CreateNode(name, node->NodeType);
    while(node->HasChildNodes)
    {
        // Вот этот бред - только из-за того, что appendChild в Билдере требует
        // вторым параметром _di_IDOMNode &, в Дельфи с этим проще...
        Xml::Xmldom::_di_IDOMNode ne_dom = new_element->DOMNode;
        ne_dom->appendChild(node->DOMNode->firstChild, ne_dom);
    }
    IXMLNodeList *attrs = node->AttributeNodes;
    for(int i = 0; i < attrs->Count; i++)
        new_element->SetAttribute(attrs->operator [](i)->NodeName,
            attrs->operator [](i)->NodeValue);
 
    IXMLNode *nParent = node->ParentNode;
    _di_IDOMNode old_DOM = node->DOMNode;
    _di_IDOMNode new_DOM = new_element->DOMNode;
 
    _di_IDOMNode nParent_DOM = nParent->DOMNode; // аналогично, нужно только в Билдере
    nParent_DOM->replaceChild(new_DOM, old_DOM, nParent_DOM);
    return new_element;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TXMLDocument *doc = new TXMLDocument(this);
    doc->LoadFromFile(xml_in);
 
    IXMLNode *nodRoot = doc->DocumentElement;
    IXMLNode *nodElement = nodElement = nodRoot->ChildNodes->Nodes[0];
 
    RenameXMLTag(nodElement, "renamedNode");
 
    doc->SaveToFile(xml_out);
    delete doc;
}

typedef System::DelphiInterface<IXMLNode> _di_IXMLNode;

    TXMLDocument *doc = new TXMLDocument(this);
    doc->LoadFromFile(xml_in);
 
    IXMLNode *nodRoot = doc->DocumentElement;
    IXMLNode *nodElement = nodElement = nodRoot->ChildNodes->Nodes[0];
 
    RenameXMLTag(nodElement, "renamed");
 
    doc->XML->Text = FormatXMLData(doc->XML->Text); // <---
    doc->Active = true; // <--- Обязательно !!!
 
    doc->SaveToFile(xml_out);
    delete doc;

TXMLDocument *doc = new TXMLDocument(this);

IXMLNode* Node= RenameXMLTag(node,name);
Caption= Node->NodeName;

_di_IXMLNode RenameXMLTag(IXMLNode *node, String name)
// ... дальше без изменений
 
// и вызов:
    _di_IXMLNode Node = RenameXMLTag(nodElement, "renamedNode");
    Caption= Node->NodeName;

IXMLNode* CurrentXmlNode=
   reinterpret_cast<IXMLNode*>(CurrentTreeNode->Data);
// ...
CurrentTreeNode->Data=  RenameXMLTag(CurrendXmlNode, NewName);

    _di_IXMLNode CurrentXmlNode = XMLDocument1->DocumentElement;
//  Caption=  CurrentXmlNode->NodeName; тут нормально выводит имя главного элемента
    _di_IXMLNode Node=  RenameXMLTag(CurrentXmlNode, EditNodeName->Text);
    Caption= Node->NodeName; // тут AV