XML Получение данных. Ошибка Could not convert variant of type (Null) into type (OleStr)

    Memo2->Clear();
    XMLDocument1->LoadFromFile("https://wm.exchanger.ru/asp/XMLWMList.asp?exchtype=1");
    XMLDocument1->Active = true;
 
    _di_IXMLNodeList nodeList = XMLDocument1->ChildNodes->Nodes["wm.exchanger.response"]->ChildNodes;
    for (int i=0; i < nodeList->Count; i++)
    {
        Memo2->Lines->Add(nodeList->Nodes[i]->Attributes["direction"]);
        Memo2->Lines->Add("------------------------------");
        Memo2->Lines->Add(XMLDocument1->ChildNodes->Nodes["wm.exchanger.response"]->ChildNodes->Nodes["WMExchnagerQuerys"]->ChildNodes->Nodes["query"]->Attributes["id"]);
    }

    _di_IXMLNodeList nodeList = XMLDocument1->ChildNodes->Nodes["wm.exchanger.response"]->ChildNodes;
    Memo2->Lines->Add(nodeList->Nodes[0]->Attributes["direction"]);
    _di_IXMLNodeList subList = nodeList->Nodes["WMExchnagerQuerys"]->ChildNodes;
    for (int i=0; i < subList->Count; i++)
    {
        Memo2->Lines->Add("------------------------------");
        Memo2->Lines->Add(subList->Nodes[i]->Attributes["id"]);
    }

    for (int i=0; i < subList->Count; i++)
    {
        Memo2->Lines->Add("------------------------------");
        if((double)(subList->Nodes[i]->Attributes["amountin"]) >= 100)
        {
            Memo2->Lines->Add(subList->Nodes[i]->Attributes["id"]);
        }
    }