anchor.diff:    i: Integer;
     ext: Extended;
     d: Double;
  +  v: Variant;
   begin
     for i := Low(Params) to High(Params) do
     begin
  
positive.code: procedure TSQLitePreparedStatement.SetParamVariant(const I: Integer; const Value: Variant);
  var
    vType: TVarType;
  begin
    vType := VarType(Value);
    case vType of
  
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
  