anchor.diff:      SetContent(Entity);
   
     vResponse := FRestClient.DoRequest(METHOD_POST, Self);
  -
  -  Result := TJsonUtil.UnMarshal<T>(vResponse);
  +  if trim(vResponse) <> '' then   
  +    Result := TJsonUtil.UnMarshal<T>(vResponse);     
   end;
   
   function TResource.Put<T>(Entity: TObject): T;
  
positive.code:   vResponse: string;
  begin
    vResponse := Self.Get;
  
    Result := TJsonUtil.UnMarshal<T>(vResponse);
  end;
  
  function TResource.Post<T>(Entity: TObject): T;
  
negative.code:     SetContent(Entity);
  
    vResponse := FRestClient.DoRequest(METHOD_PUT, Self);
    if trim(vResponse) <> '' then   
      Result := TJsonUtil.UnMarshal<T>(vResponse);
  end;
  
  procedure TResource.Delete(Entity: TObject);
  