diff --git a/packages/rtl-objpas/src/inc/variants.pp b/packages/rtl-objpas/src/inc/variants.pp
index 5a8e106875..4682f3bfae 100644
--- a/packages/rtl-objpas/src/inc/variants.pp
+++ b/packages/rtl-objpas/src/inc/variants.pp
@@ -54,12 +54,12 @@ type
 
 Const
   OrdinalVarTypes = [varSmallInt, varInteger, varBoolean, varShortInt,
-                     varByte, varWord,varLongWord,varInt64];
+                     varByte, varWord,varLongWord,varInt64,varQWord];
   FloatVarTypes = [
 {$ifndef FPUNONE}
     varSingle, varDouble,
 {$endif}
-    varCurrency];
+    varCurrency, varDecimal];
 
 { Variant support procedures and functions }