anchor.diff:  begin
     inherited;
     FResourceDataSets := TMARSFDResourceDatasets.Create(TMARSFDResourceDatasetsItem);
  +  FResourceDataSets.FOwnerComponent := Self;
     SpecificAccept := TMediaType.APPLICATION_JSON_FireDAC + ',' + TMediaType.APPLICATION_JSON;
     SpecificContentType := TMediaType.APPLICATION_JSON_FireDAC;
   end;
  
positive.code:   LDest.Synchronize := Synchronize;
  end;
  
  constructor TMARSFDResourceDatasetsItem.Create(Collection: TCollection);
  begin
    inherited;
  
negative.code: begin
    if FDataSet <> Value then
    begin
      if Assigned(FDataSet) then
        FDataSet.RemoveFreeNotification(Collection.FOwnerComponent);
      FDataSet := Value;
      if Assigned(FDataSet) then
      begin
        FDataSet.FreeNotification(Collection.FOwnerComponent);
        if SendDelta then
          FDataSet.CachedUpdates := True;
        FDataSet.ActiveStoredUsage := [];
  