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:   i: Integer;
    ext: Extended;
    d: Double;
  begin
    for i := Low(Params) to High(Params) do
    begin
  
negative.code: procedure TSQLitePreparedStatement.SetParamVariant(const I: Integer; const Value: Variant);
  var
    vType: TVarType;
    bStream: TMemoryStream;
    ptr: Pointer;
    iDim: Integer;
  begin
    vType := VarType(Value);
    case vType of
  