anchor.diff:    vResponse: string;
   begin
     vResponse := Post(Content);
  -
     if Trim(vResponse) <> '' then
       Result := TJsonUtil.UnMarshal<T>(vResponse)
     else
  
positive.code:   vResponse: string;
  begin
    vResponse := Put(Content);
  
    if Trim(vResponse) <> '' then
      Result := TJsonUtil.UnMarshal<T>(vResponse)
    else
  
negative.code: function TResource.ContentRequest(Content: TStream; Method: TRequestMethod;
    AHandler: TRestResponseHandler): string;
  begin
    FContent.Clear;
    if assigned(Content) then
    begin
      Content.Position := 0;
      FContent.CopyFrom(Content, Content.Size);
    end;
    Result := FRestClient.DoRequest(Method, Self, AHandler);
  end;
  
  