anchor.diff:  procedure TSQLitePreparedStatement.SetParamVariant(const name: string; const Value: Variant);
   var
     vType: TVarType;
  +  bStream: TMemoryStream;
  +  ptr: Pointer;
  +  iDim: Integer;
   begin
     vType := VarType(Value);
     case vType of
  
positive.code:     varNull, varEmpty:
      begin
        SetParamNull(name);
      end;
    end;
  end;
  
negative.code:           raise ESQLiteException.Create('Unsupported param object type');
          end;
        end;
        vtVariant:
        begin
          v := Params[i].VVariant^;
          SetParamVariant(i+1, v);
        end;
        vtPointer:
        begin
          if Params[i].VPointer = nil then
  