anchor.diff:          procedure InternalInitFieldDefs; override;
       end;
   
  -    TDataSetObject = class(TAutoIntfObject, IDataSet)
  +    TDataSetObject = class(TAutoIntfObject, IDataSetV11, IDataSetV13)
       private
           FDataSet: TCompatDataSet;
           FIndex: TFieldIndex;
  
positive.code: 
  uses
      Classes, ComObj, Variants, DB, DBCommon, DBClient, DSIntf,
      Loodsman.Infrastructure.Resources;
  
  type
      TFieldIndex = class(TStringList)
  
negative.code: }
  constructor TDataSetObject.Create;
  begin
      inherited Create(GetLoodsmanTypeLib(), IID_IDataSetV13);
      FDataSet := TCompatDataSet.Create(nil);
      FIndex := TFieldIndex.Create();
  end;
  