var
 http : TIdHttp;
 req  : TIdMultiPartFormDataStream;
 data : TStream;
 resp: TStringStream;
begin
http := TIdHTTP.Create(nil);
req := TIdMultiPartFormDataStream.Create;
req.AddFormField('xml_file', 'text/xml', 'utf-8', data, 'client.xml');
    resp := TStringStream.Create;
    try
      http.Get('http://10.10.1.233:8080/opt/out',resp);
    finally
      ShowMessage(http.Response.ResponseText);
    memo1.Lines.append(resp.DataString);
    XMLDocument1.XML.append(resp.DataString);
    XMLDocument1.Active:=true;
    memo1.Lines.add(VarToStr(XMLDocument1.DocumentElement.ChildNodes['A'].ChildNodes['url'].ChildNodes[0].ChildValues['Value']));
    XMLDocument1.SaveToFile('D:\123.xml');
    resp.Free;
    end;
end;