Excelente pessoal, deu certo.
->So adicinar o path o caminho : C:\Program Files (x86)\Embarcadero\Studio\14.0\source\soap\
->Alterar a UNIT Soap.SOAPHTTPTrans.pas
DE :
{$IFDEF UNICODE} HttpSendRequest(Request, nil, 0, DatStr.Bytes, DatStr.Size); {$ELSE} HttpSendRequest(Request, nil, 0, @DatStr.DataString[1], Length(DatStr.DataString)); {$ENDIF} RetVal := HandleWinInetError(GetLastError, Request, True);
PARA:
{$IFDEF UNICODE} WinInetResult := HttpSendRequest(Request, nil, 0, DatStr.Bytes, DatStr.Size); {$ELSE} WinInetResult := HttpSendRequest(Request, nil, 0, @DatStr.DataString[1], Length(DatStr.DataString)); {$ENDIF} if not WinInetResult then RetVal := HandleWinInetError(GetLastError, Request, True);
e criar a variavel WinInetResult : Boolean;
Que var dar certo.
Obrigado a todos pela ajuda.