Работа с TXMLDocument

TXMLDocument *XMLDocument = new TXMLDocument(this);
try
  {
    XMLDocument->Active = true;
    XMLDocument->Encoding = "UTF-8";
    XMLDocument->Options = XMLDocument->Options << doNodeAutoIndent;
 
    _di_IXMLNode nodElement = XMLDocument->CreateElement(L"config", L"edit");
    XMLDocument->ChildNodes->Add(nodElement);
 
    for (int i = 0; i < 1; i++)
    {
 
    IXMLNode *nodNew = XMLDocument->ChildNodes->Last()->AddChild(L"monday");
    String edit1 = Edit2->Text;
    nodNew->SetAttribute("edit", edit1);
    }
XMLDocument->SaveToFile("con.xml");
    MessageBox(0,"Ñîõðàíåíèå ïðîøëî óñïåøíî!","Ñîõðàíåíèå...",MB_OK);
 }
 __finally {delete XMLDocument;}

[C++ Error] Unit1.cpp(89): E2285 Could not find a match for 'TXMLDocument::TXMLDocument(TForm1 * const)'

//-------------------------Сохранение--------------------------------------
void __fastcall TForm2::bSaveClick(TObject *Sender)
{
TXMLDocument *XMLDocument = new TXMLDocument(this);
try
  {
    XMLDocument->Active = true;
    XMLDocument->Encoding = "UTF-16";
    XMLDocument->Options = XMLDocument->Options << doNodeAutoIndent;
 
    _di_IXMLNode nodElement = XMLDocument->CreateElement(L"data", L"");
    XMLDocument->ChildNodes->Add(nodElement);
    for (int i = 0; i < StringGrid1->RowCount; i++)
    {
    IXMLNode *nodNew = XMLDocument->ChildNodes->Last()->AddChild(L"user");
 
    String name=StringGrid1->Cells[0][i+1];
    nodNew->SetAttribute("name", name);
    String vid=StringGrid1->Cells[1][i+1];
    nodNew->SetAttribute("vid", vid);
    String ves=StringGrid1->Cells[2][i+1];
    nodNew->SetAttribute("ves", ves);
    String sreda=StringGrid1->Cells[3][i+1];
    nodNew->SetAttribute("sreda", sreda);
    String sem=StringGrid1->Cells[4][i+1];
    nodNew->SetAttribute("sem",sem);
    }
    XMLDocument->SaveToFile("База рыб.txt");
    MessageBox(0,"Сохранение завершено!!!","Успешно.",MB_OK);
 }
 __finally {delete XMLDocument;}
 
}
//---------------------ЗАГРУЗКА-------------------------------------------
void __fastcall TForm2::bLoadClick(TObject *Sender)
{
TXMLDocument *XMLDocument =new TXMLDocument(this);
try
 {
    XMLDocument->Active = true;
    XMLDocument->Encoding = "UTF-16";
    XMLDocument->Options = XMLDocument->Options << doNodeAutoIndent;
    XMLDocument->LoadFromFile("База рыб.txt");
    IXMLNode *nodRoot = XMLDocument->DocumentElement;
 
    IXMLNode *nodElement;
    int n=nodRoot->ChildNodes->Count;
    StringGrid1->RowCount=1;
 
        for (int i = 0; i < n; i++)
        {
            nodElement = nodRoot->ChildNodes->Nodes[i];
            String name = nodElement->GetAttribute("name");
            StringGrid1->Cells[0][i+1]=name;
            String vid = nodElement->GetAttribute("vid");
            StringGrid1->Cells[1][i+1]=vid;
            String ves = nodElement->GetAttribute("ves");
            StringGrid1->Cells[2][i+1]=ves;
            String sreda = nodElement->GetAttribute("sreda");
            StringGrid1->Cells[3][i+1]=sreda;
            String sem = nodElement->GetAttribute("sem");
            StringGrid1->Cells[4][i+1]=sem;
            StringGrid1->RowCount++;
        }
 
    StringGrid1->FixedRows=1;
    StringGrid1->RowCount--;
    MessageBox(0,"Загрузка завершена!!!","Успешно.",MB_OK);
 }
 __finally{ delete XMLDocument; }
}
//---------------------------------------------------------------------------

    TXMLDocument* xmlSettings = new TXMLDocument(setpath);
    xmlSettings->FileName = setpath;
    xmlSettings->DOMVendor = GetDOMVendor("MSXML");
    xmlSettings->Active = true;
    xmlSettings->Encoding = "UTF-8";

new TXMLDocument(Application);

TStringList* xmlList = new TStringList();
    xmlList->LoadFromFile(setpath);
    _di_IXMLDocument xmlDoc;
    xmlDoc = LoadXMLData( xmlList->Text );
    xmlDoc->DocumentElement;
    eSettings = xmlDoc->DocumentElement;

#include "stdafx.h"
#include <atlbase.h>
#include <msxml6.h>
 
int _tmain(int argc, _TCHAR* argv[])
{
    CoInitialize(NULL);
 
    CComPtr<IXMLDOMDocument> spXMLDOM;
    HRESULT hr = spXMLDOM.CoCreateInstance(__uuidof(DOMDocument));
    if ( FAILED(hr) ) throw "Unable to create XML parser object";
    if ( spXMLDOM.p == NULL ) throw "Unable to create XML parser object";
 
    CComBSTR bstrSS(L"comand");
    IXMLDOMNodeList *NodeList = NULL;
    CComVariant varValue(VT_EMPTY);
    IXMLDOMNode *spXMLNode = NULL;
    long value = 0;
 
    VARIANT_BOOL bSuccess = false;
    hr = spXMLDOM->load(CComVariant(L"comand.xml"),&bSuccess);
    spXMLDOM->getElementsByTagName(bstrSS,&NodeList);
    NodeList->get_length(&value);
 
    for(int i = 0; i < value; ++i)
    {
        NodeList->get_item(i,&spXMLNode);
        spXMLNode->get_nodeTypedValue(&varValue);
        spXMLNode->Release();
        spXMLNode = NULL;
    }
 
    CoUninitialize();
 
    return 0;
}

void __fastcall TfrmMain::btnDocumentClick(TObject *Sender)
{
    TXMLDocument *docVideos = new TXMLDocument(frmMain);
    docVideos->LoadFromFile(L"C:\\Programs\\videos.xml");
 
    IXMLNode *nodVideo = docVideos->DocumentElement;
    ShowMessage(nodVideo->NodeName);
}