anchor.diff:  end;
   
   function TResource.Post(Entity: TObject): TObject;
  -var
  -  vResponse: string;
  -begin
  -  if Entity <> nil then
  -    SetContent(Entity);
  -  vResponse := FRestClient.DoRequest(METHOD_POST, Self);
  -  if trim(vResponse) <> '' then
  -    Result := TJsonUtil.UnMarshal(Entity.ClassType, vResponse)
  -  else
  -    Result := nil;
  +begin
  +  Result := Post(Entity, Entity.ClassType);
   end;
   
   function TResource.Post(Content: string; ResultClass: TClass): TObject;
  
positive.code: destructor TResource.Destroy;
  begin
    FRestClient.FResources.Extract(Self);
    
    FContent.Free;
    FHeaders.Free;
    inherited;
  end;
  
  function TResource.Get: string;
  
negative.code: end;
  
  function TResource.Post(Entity: TObject; ResultClass: TClass): TObject;
  begin
    Result := EntityRequest(Entity, ResultClass, METHOD_POST);
  end;
  
  function TResource.Put(Entity: TObject): TObject;
  begin
    Result := Put(Entity, Entity.ClassType);
  end;
  
  function TResource.Put(Content: string; ResultClass: TClass): TObject;
  