[NumLock]

следующие 2 строки кода эквивалентны:

Код:

    XMLDOMDocument:=XMLHttpRequest.responseXML as IXMLDOMDocument;

    XMLHttpRequest.responseXML.QueryInterface(IXMLDOMDocument, XMLDOMDocument);

и

Код:

  XMLHttpRequest:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;

  CreateComObject(CLASS_XMLHTTPRequest).QueryInterface(IXMLHttpRequest, XMLHttpRequest);

код можно чуть упростить:

Код:

var
  XMLHttpRequest: IXMLHttpRequest;
  XMLDOMDocument: IXMLDOMDocument;
begin
  XMLHttpRequest:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
  XMLHttpRequest.open('GET', 'http://www.delphisources.ru/forum/external_mod.php?type=RSS2', False, '', '');
  XMLHttpRequest.send('');
  if XMLHttpRequest.status=200 then
  begin
    XMLDOMDocument:=XMLHttpRequest.responseXML as IXMLDOMDocument;
//    XMLHttpRequest.responseXML.QueryInterface(IXMLDOMDocument, XMLDOMDocument);
  end;
end;