function XXX (var x1, x2: string): boolean;
var
  RestClient: TRestClient;
  RestRequest: TRestRequest;
  RestResponse: TRestResponse;
  Price_Actual_str, Price_Normal_str: string;

  JSONValue: TJSONValue;
  JsonNestedObject: TJSONObject;

begin

    RestClient := TRestClient.create(nil);
    RestRequest := TRestRequest.create(nil);
    RestResponse := TRestResponse.create(nil);

    RestRequest.Client := RestClient;
    RestRequest.ClearBody;
    RestRequest.Response := RestResponse;

    RestRequest.Method := TRESTRequestMethod.rmGet;

    RestClient.BaseURL := url;
    RestClient.ContentType := 'application/json';
    try
      try

        RestRequest.Execute;

        if Assigned(RESTResponse.JSONValue) then
        begin

          if RESTResponse.StatusCode = 200 then
          begin

            JSONValue := RESTResponse.JSONValue as TJSONObject;
            JsonNestedObject := JSONValue.FindValue('price_info') as TJSONObject;

            with JsonNestedObject.GetEnumerator do begin
              while MoveNext do
              begin
                if Current.JsonString.Value = 'price' then begin
                  price_actual_str := (Current.JSONValue as TJSONObject).GetValue<string>('with');
                end;

                if Current.JsonString.Value = 'normal_price' then begin
                  price_normal_str := (Current.JSONValue as TJSONObject).GetValue<string>('without');

                end;
              end;
              x1 := price_actual_str;
              x2 := price_normal_str; 
              Result := True;
            end;
            JSONValue.Free;

          end;

        end;
      except
        //beep;
      end;
    finally
      if Assigned(RESTResponse) then RESTResponse.Free;
      if Assigned(RestRequest) then RestRequest.Free;
      if Assigned(RESTClient) then RESTClient.Free;
    end;

end;