Fórum Enviando Arquivo XML de um Serviço Delphi para webservice PHP #579922

uses Classes, System, IdHttp, IdGlobal;

function RequestRespose(JsonStr: string): string;
var
  AuxStr: string;
  Response: string;
  idHTTP: TIdHTTP;
  MS: TMemoryStream;
  Request: OleVariant;
begin
  Screen.Cursor := crHourGlass;
  Result := '';
  MS := nil;
  idHTTP := TIdHTTP.Create(Application);
  try
    with idHTTP.Request do
    begin
      Method := 'POST';
      ContentType := 'application/json';
      URL := URLAPI;
      //CustomHeaders.Values['X-Api-Key'] := KEYAPI;
    end;
    AuxStr := JsonStr;
    MS := TMemoryStream.Create;
    WriteStringToStream(MS, AuxStr, IndyUTF8Encoding);
    MS.Position := 0;
    try
      Response := idHTTP.Post(idHTTP.Request.URL, MS);
    except
      on e: EIdHTTPProtocolException do
      begin
        Response := e.ErrorMessage; // json com detalhe do erro
      end;
    end;
  finally
    Screen.Cursor := crDefault;
    MS.Free;
    idHTTP.Free;
  end;
  Result := Response;
end;