问将生成的xml从internet导入到delphi应用程序中

EN

procedure TForm1.Button1Click(Sender: TObject);
var
   dow: TIdHTTP;
   xmlDoc: TXMLDocument;
   xmlStrem: TMemoryStream;
begin
   dow := nil;
   xmlDoc := nil;
   xmlStrem := nil;
   try
      try
         dow := TIdHTTP.Create(Self);
         dow.HandleRedirects := True;
         xmlStrem := TMemoryStream.Create();
         dow.Get('http://url.com/path/', xmlStrem);
         xmlDoc := TXMLDocument.Create(Self);
         xmlDoc.LoadFromStream(xmlStrem);
         ShowMessage(xmlDoc.XML.Text);
      except
         on E: Exception do
         begin
            raise;
         end;
      end;
   finally
      if Assigned(dow) then FreeAndNil(dow);
      if Assigned(xmlDoc) then FreeAndNil(xmlDoc);
      if Assigned(xmlStrem) then FreeAndNil(xmlStrem);
   end;
end;