anchor.diff:    Result := sqlite3_value_text16(ArgValue^);
   end;
   
  +{$IFNDEF CPUX64}
   { TSQLiteUniTable.TUniTableEnumerator }
   
   constructor TUniTableEnumerator.Create(ATable: TSQLiteUniTable);
  
positive.code:     function GetFieldIndex(const FieldName: string): integer;
      function GetFieldByName(const FieldName: string): TSQLiteField;
      procedure SetFieldByName(const FieldName: string; const Value: TSQLiteField);
  
      function GetEnumerator: TUniTableEnumerator;
  
      function FindField(const AFieldName: string): TSQLiteField;
      function FieldAsInteger(I: Cardinal): int64;
      function FieldAsBlob(I: Cardinal): TMemoryStream;
  
negative.code:     Result := FDataSet.Next;
  end;
  
  {$ENDIF}
  
  initialization
    TSQLiteDatabase.FColumnTypes := TDictionary<string,Integer>.Create(DEF_COLCOUNT);
    TSQLiteDatabase.InitDefaultColumnTypes;
    {$IFNDEF CPUX64}
    VarDataRecordType := TVarDataRecordType.Create;
    {$ENDIF}
  finalization
    TSQLiteDatabase.FColumnTypes.Free;
    {$IFNDEF CPUX64}
    FreeAndNil(VarDataRecordType);
    {$ENDIF}
  end.
  
  