[Dr.Eik]

Все разобрался...
Вот код.. Может кому пригодится..

Код:

var
  XMLHttpRequest: IXMLHttpRequest;
  XMLDOMDocument: IXMLDOMDocument;
  UidList,uidlength: IXMLDOMNodeList;
  UidElement: IXMLDOMElement;
  i,j: Integer;
  a,b,Str1,Str2,mas:string;

begin
   j:=0;
  OleInitialize(nil);
  XMLHttpRequest:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
  XMLHttpRequest.open('GET', 'https://api.vkontakte.ru/method/friends.getMutual.xml?&source_uid=192113648&target_uid=126862794&access_token='+token, False, EmptyParam, EmptyParam);
  XMLHttpRequest.send(EmptyParam);

    if XMLHttpRequest.status=200 then
      begin
      XMLDOMDocument:=XMLHttpRequest.responseXML as IXMLDOMDocument;
        UidLength:=XMLDOMDocument.getElementsByTagName('uid');
        while j<> uidlength.length-1 do
        begin
          UidList:=XMLDOMDocument.getElementsByTagName('response');
          Label2.Caption:=intToStr(UidLength.length);
          for i:=0 to UidList.length-1 do
            begin
            UidElement:=UidList.item[i] as IXMLDOMElement;

           Memo2.Lines.Add(UidElement.getElementsByTagName('uid').item[j].text);
            inc(j);
          end;
           end;
           end;