[NumLock]

Код:

var
  XMLHttpRequest: IXMLHttpRequest;
  XMLDOMDocument: IXMLDOMDocument;
  XMLDOMNodeList: IXMLDOMNodeList;
  i: Integer;
begin
  Memo1.Clear;
  XMLHttpRequest:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
  XMLHttpRequest.open('GET', 'http://j2me.webservis.ru/test.xml', False, EmptyParam, EmptyParam);
  XMLHttpRequest.send(EmptyParam);
  if XMLHttpRequest.status<>200 then raise Exception.Create('Oops');
  XMLDOMDocument:=XMLHttpRequest.responseXML as IXMLDOMDocument;
  XMLDOMNodeList:=XMLDOMDocument.getElementsByTagName('uid');
  for i:=0 to XMLDOMNodeList.length-1 do
    Memo1.Lines.Add(XMLDOMNodeList.item[i].text);
end;