anchor.diff:        end;
         vtObject:
         begin
  -        if (Params[i].VObject is TStream) then
  -        begin
  -          SetParamBlob(i+1, TStream(Params[i].VObject));
  -        end
  +        if not Assigned(Params[i].VObject) then
  +          SetParamNull(i+1)
           else
           begin
  -          raise ESQLiteException.Create('Unsupported param object type');
  +          if (Params[i].VObject is TStream) then
  +          begin
  +            SetParamBlob(i+1, TStream(Params[i].VObject));
  +          end
  +          else
  +            raise ESQLiteException.Create('Unsupported param object type');
           end;
         end;
         vtVariant:
  
positive.code:     dtNumeric:
        Result := FieldAsDouble(I);
      dtBlob:
        Result := FieldAsBlobText(I);
      dtDate:
      begin
        if not TryStrToDate(FieldAsString(I), dt1, fDB.FmtSett) then
  
negative.code:     function FieldAsBlob(I: Cardinal): TMemoryStream;
      function FieldAsBlobPtr(I: Cardinal; out iNumBytes: integer): Pointer;
      function FieldAsBlobText(I: Cardinal): string;
      function FieldAsBlobVariant(I: Cardinal): Variant;
      function FieldIsNull(I: Cardinal): Boolean;
      function FieldAsString(I: Cardinal): string;
      function FieldAsDouble(I: Cardinal): double;
  