anchor.diff:  
     vResponse := FRestClient.DoRequest(METHOD_PATCH, Self);
   
  -  Result := TJsonUtil.UnMarshal<T>(vResponse);
  +  if trim(vResponse) <> '' then
  +    Result := TJsonUtil.UnMarshal<T>(vResponse);
   end;
   {$ELSE}
   function TResource.Get(AListClass, AItemClass: TClass): TObject;
  
positive.code:   vResponse: string;
  begin
    vResponse := Self.Get;
  
    Result := TJsonUtil.UnMarshal<T>(vResponse);
  end;
  
  function TResource.Post<T>(Entity: TObject): T;
  
negative.code: 
    vResponse := FRestClient.DoRequest(METHOD_PUT, Self);
  
    if trim(vResponse) <> '' then
      Result := TJsonUtil.UnMarshal<T>(vResponse);
  end;
  
  function TResource.Patch<T>(Entity: TObject): T;
  