anchor.diff:    public
       constructor Create;
       destructor Destroy; override;
  +    procedure Assign(const aSource : TmGroupByDefs);
   
       function Add : TmGroupByDef;
       function Count : integer;
  
positive.code:   inherited Destroy;
  end;
  
  function TmGroupByDefs.Add: TmGroupByDef;
  begin
    Result := TmGroupByDef.Create;
  
negative.code: 
  unit mPivoter;
  
  {$IFDEF FPC}
    {$MODE DELPHI}
  {$ENDIF}
  
  interface
  
  uses
  