Fórum Consumo de método #466933

Boa noite, estou tendo dificuldades para consumir o método a seguir: function SetCustomer(const request: SetCustomerRequest2): SetCustomerResponse2; stdcall;
Estou fazendo da seguinte forma:
procedure TForm5.Button1Click(Sender: TObject);
var
XML_Envio,
XML_Retorno,
CaminhoAsmxWS: String;
begin
CaminhoAsmxWS := 'http://localhost:8735/WindowsServiceWCF/UraService?singleWsdl';
XML_Envio := memo1.Text;
XML_Retorno := '';

try
ws := GetIUraService(true, CaminhoAsmxWS, nil);
ws.SetCustomer(SetCustomerRequest2(MEMO1.Text));

except
On e: Exception do
begin
ShowMessage('erro');
end;
end;

memo2.Text := XML_Retorno;

onde o campo memo1 contem o xml descrito abaixo:

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/" xmlns:win="http://schemas.datacontract.org/2004/07/WindowsServiceWCF">
<soapenv:Header/>
<soapenv:Body>
<tem:SetCustomer>
<!--Optional:-->
<tem:request>
<win:CodeValue>4</win:CodeValue>
<win:Type>CLIENTE</win:Type>
</tem:request>
</tem:SetCustomer>
</soapenv:Body>
</soapenv:Envelope>

se alguém puder me auxiliar, agradeço,

Murilo