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