Consumir dados do servidor RESTfull PHP com delphi

procedure Button4Click(Sender: TObject);
var
  URL, Retorno: String;
  JsonStreamRetorno, JsonStreamEnvio: TStringStream;
  pgHtml : TStringList;
  Json: string;
  sResponse: string;
  JsonToSend: TMemoryStream;
begin
  pgHtml := TStringList.Create;
  URL :=SEUHOST;
  JsonStreamEnvio := TStringStream.Create(Memo4.Text);
  JsonStreamRetorno := TStringStream.Create('');

  try
   idHttp.Request.Clear;

    idHttp.Request.ContentType := 'application/json';
    idhttp.Request.Charset := 'utf-8';

    idHttp.Request.BasicAuthentication := true;

    idHttp.Request.ContentType := 'application/json;odata=light;charset=utf-8;';
    idHttp.Request.Connection  := 'keep-alive';
    idHttp.Request.UserAgent   := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36';
    idHttp.Request.AcceptEncoding := 'gzip, deflate';
    idHttp.Request.AcceptLanguage := 'pt-BR,pt;q=0.8,en-US;q=0.6,en;q=0.4';
    idHttp.Request.CacheControl := 'no-cache';

   IdHttp.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

   
    try

      idHttp.Post(URL, JsonStreamEnvio, JsonStreamRetorno);

      Memo2.Text := IdHTTP.Post(URL, JsonStreamEnvio);

    except

      on E:EIdHTTPProtocolException do

        Memo2.Lines.Add(e.ErrorMessage);

    end;

   finally
     memo2.Lines.add(JsonStreamRetorno.DataString);
   end;


end;