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