anchor.diff:    i: Integer;
     ext: Extended;
     d: Double;
  +  v: Variant;
   begin
     for i := Low(Params) to High(Params) do
     begin
  
positive.code:           raise ESQLiteException.Create('Unsupported param object type');
          end;
        end;
        vtPointer:
        begin
          if Params[i].VPointer = nil then
  
negative.code:     varNull, varEmpty:
      begin
        SetParamNull(I);
      end
      else
      begin
        if VarIsArray(Value) then
        begin
          //blob type
          bStream := TMemoryStream.Create();
          iDim := VarArrayDimCount(Value);
          ptr := VarArrayLock(Value);
          try
            bStream.WriteBuffer(ptr^, VarArrayHighBound(Value, iDim));
  
            SetParamBlob(I, bStream);
          finally
            VarArrayUnlock(Value);
            bStream.Free;
          end;
        end;
      end;
    end;
  end;
  