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:     FSendDelta: Boolean;
      FSynchronize: Boolean;
      procedure SetDataSet(const Value: TFDMemTable);
    protected
      procedure AssignTo(Dest: TPersistent); override;
      function GetDisplayName: string; override;
  
negative.code: 
    TMARSFDResourceDatasets = class(TCollection)
    private
      FOwnerComponent: TComponent;
      function GetItem(Index: Integer): TMARSFDResourceDatasetsItem;
    public
      function Add: TMARSFDResourceDatasetsItem;
  