anchor.diff:  
   uses
       Classes, ComObj, Variants, DB, DBCommon, DBClient, DSIntf,
  -    Loodsman.Infrastructure.Resources;
  +    DataProvider_TLB, Loodsman.Infrastructure.Resources;
   
   type
       TFieldIndex = class(TStringList)
  
positive.code:     Result := FDataSet.Locate(KeyFields, KeyValues, LOptions);
  end;
  
  function TDataSetObject.MoveBy(Distance: Integer): Integer;
  begin
      Result := FDataSet.MoveBy(Distance);
  
negative.code:         procedure InternalInitFieldDefs; override;
      end;
  
      TDataSetObject = class(TAutoIntfObject, IDataSetV11, IDataSetV13)
      private
          FDataSet: TCompatDataSet;
          FIndex: TFieldIndex;
  