[El Sanchez]

Поставил ansi-версию, ошибки все равно вылетают. »

Batistas, попробуйте вместо объекта Microsoft.XMLDOM подставить одно из значений: MSXML2.DOMDocument, MSXML2.DOMDocument.3.0, MSXML2.DOMDocument.4.0, MSXML2.DOMDocument.6.0.
Если будет ругань, то оформите ReadDCPlusPlus вот так:

читать дальше »

Код:

function ReadDCPlusPlus(Filename, Node, Default: String): String;
var
    objXMLDoc: Variant;
begin
    Result := Default;
    if not FileExists(Filename) then Exit;
    try
        objXMLDoc := CreateOleObject('Microsoft.XMLDOM'); //или другой объект
        objXMLDoc.load(Filename);
        objXMLDoc.async := False;
        if objXMLDoc.parseError.errorCode <> 0 then Exit;
        Result := objXMLDoc.selectSingleNode(Node).text;
    except
        ShowExceptionMessage;
        Exit;
    end;
end;