anchor.diff:      dtNumeric:
         Result := FieldAsDouble(I);
       dtBlob:
  -      Result := FieldAsBlobText(I);
  +      Result := FieldAsBlobVariant(I); //  FieldAsBlobText(I);
       dtDate:
       begin
         if not TryStrToDate(FieldAsString(I), dt1, fDB.FmtSett) then
  
positive.code: 
  end;
  
  function TSQLiteUniTable.FieldAsDouble(I: cardinal): double;
  begin
    Result := Sqlite3_ColumnDouble(fstmt, i);
  
negative.code:       end;
        vtObject:
        begin
          if not Assigned(Params[i].VObject) then
            SetParamNull(i+1)
          else
          begin
            if (Params[i].VObject is TStream) then
            begin
              SetParamBlob(i+1, TStream(Params[i].VObject));
            end
            else
              raise ESQLiteException.Create('Unsupported param object type');
          end;
        end;
        vtVariant:
  