TXMLDocument *X = new TXMLDocument("test.xml");

TXMLDocument *X = new TXMLDocument("test.xml");

class QPacket
{
protected:
    AnsiString xml;
public:
    QPacket(void);
    QPacket(char * xml);
    ~QPacket(viod);

    void        SetCommand(char * cmd);
    AnsiString  GetSendString(void);
}

QPacket::QPacket(void)
{
TXMLDocument * Data;
_di_IXMLNode root, node;
    Data=new TXMLDocument(WideString(""));
    Data->DOMVendor=GetDOMVendor(AnsiString("Open XML"));
    Data->Active=true;
    root=Data->AddChild(WideString("datapacket"));
    node=root->AddChild(WideString("session"));
    node=root->AddChild(WideString("command"));
    node=root->AddChild(WideString("params"));
    Data->SaveToXML(this->xml);
//    delete Data;   //Здесь затыкаемся если убрать коментарии, почему не ясно, вроде как просто пытаемся удалить объект...
    return;
}

QPacket::QPacket(char * x)
{
TXMLDocument * Data;
    Data=new TXMLDocument(WideString(""));
    Data->DOMVendor=GetDOMVendor(AnsiString("Open XML"));
    Data->Active=true;
    Data->XML->Text=x;
    Data->SaveToXML(this->xml);
//  delete Data // то же самое...
    return;
}

QPacket::~QPacket(void)
{
    this->xml="";
    return;
}

void QPacket::SetCommand(char * cmd)
{
_di_IXMLNode root, node;
TXMLDocument * Data;
    Data=new TXMLDocument(WideString(""));
    Data->DOMVendor=GetDOMVendor(AnsiString("Open XML"));
    Data->Active=true;
    Data->LoadFromXML(this->xml);
    root=Data->DocumentElement->ChildNodes->GetNode(0);  // А вот тут вообще отпад, здесь и стоим, просто вылетаем с AV, хотя вроде как обект создан и Актив, XML в него загрузился без проблем...
    node=root->ChildNodes->GetNode(WideString("command"));
    node->Text=WideString(cmd);
    Data->SaveToXML(this->xml);
    return;
}

AnsiString QPacket::GetSendString(void)
{
    return this->xml;
}