anchor.diff:      Classes, ComObj, Variants, DB, DBCommon, DBClient, DSIntf,
       DataProvider_TLB, Loodsman.Infrastructure.Resources;
   
  +resourcestring
  +    SWrongMidasDLL = 'На компьютере установлена старая версия MIDAS.DLL. '
  +        + 'Приложению требуется версия библиотеки 15.0 или более новая';
  +
   type
       TFieldIndex = class(TStringList)
       protected
  
positive.code:   end;
  end;
  
  procedure TCompatDataSet.InternalInitFieldDefs;
  var
      FieldID, I: Integer;
  
negative.code:         procedure AddFieldDesc(FieldDescs: TFieldDescList; var DescNo, FieldID:
              Integer; FieldDefs: TFieldDefs);
          procedure InternalInitFieldDefs; override;
          procedure OpenCursor(InfoQuery: Boolean); override;
      public
          procedure CreateDataSet;
      end;
  
      TDataSetObject = class(TAutoIntfObject, IDataSetV11, IDataSetV13)
  