anchor.diff:      varNull, varEmpty:
       begin
         SetParamNull(name);
  +    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(name, bStream);
  +        finally
  +          VarArrayUnlock(Value);
  +          bStream.Free;
  +        end;
  +      end;
       end;
     end;
   end;
  
positive.code: procedure TSQLitePreparedStatement.SetParamVariant(const name: string; const Value: Variant);
  var
    vType: TVarType;
  begin
    vType := VarType(Value);
    case vType of
  
negative.code:   i: Integer;
    ext: Extended;
    d: Double;
    v: Variant;
  begin
    for i := Low(Params) to High(Params) do
    begin
  