anchor.diff:      function GetFieldIndex(const FieldName: string): integer;
       function GetFieldByName(const FieldName: string): TSQLiteField;
       procedure SetFieldByName(const FieldName: string; const Value: TSQLiteField);
  -
  +    {$IFNDEF CPUX64}
       function GetEnumerator: TUniTableEnumerator;
  -
  +    {$ENDIF}
       function FindField(const AFieldName: string): TSQLiteField;
       function FieldAsInteger(I: Cardinal): int64;
       function FieldAsBlob(I: Cardinal): TMemoryStream;
  
positive.code:   {$ENDIF}
    TypInfo;
  
  type
    { A custom variant type that implements the mapping from the property names
      to the DataSet fields. }
  
negative.code:     constructor Create(DB: TSQLiteDatabase; hStmt: TSQLiteStmt); overload;
      constructor Create(DB: TSQLiteDatabase; const SQL: string); overload;
      destructor Destroy; override;
      {$IFNDEF CPUX64}
      function GetEnumerator: TUniTableEnumerator;
      property CurrentRec: Variant read GetCurrentRec;
      {$ENDIF}
      /// <summary>
      /// Checks if fieldname exists
      /// </summary>
  