* Int64 and QWord are valid types. Fix issue #40778

packages/rtl-objpas/src/inc/variants.pp

@@ -3426,7 +3426,7 @@ function VarTypeIsValidArrayType(const aVarType: TVarType): Boolean;
       varSingle,varDouble,varDate,
 {$endif}
       varCurrency,varOleStr,varDispatch,varError,varBoolean,
-      varVariant,varUnknown,varShortInt,varByte,varWord,varLongWord];
+      varVariant,varUnknown,varShortInt,varByte,varWord,varLongWord,varInt64,varQWord];
   end;