RESTClient1.BaseURL:=edtURL.Text;
RESTRequest1.Execute;
memLog.Text:=RESTResponse1.Content;

procedure TfrmMain.btnGetClick(Sender: TObject);
var
  jo,jo2:TJSONObject;
  jv:TJSONValue;
  ja:TJSONArray;
  jp:TJSONPair;
  i:Integer;
begin
  RESTClient1.BaseURL:=edtURL.Text;
  RESTRequest1.Execute;
  memLog.Text:=RESTResponse1.Content;

  jo:=TJSONObject.Create;
  ja:=jo.ParseJSONValue(RESTResponse1.Content) as TJSONArray;
  for jv in ja do
   begin
      jo2:=jv as TJSONObject;
      for i:=0 to jo2.Count-1 do
      begin
        jp:=jo2.Pairs[i];
        memLog.Lines.Add(jp.JsonString.ToString+':'+jp.JsonValue.ToString);
      end;
   end;

end;