diff --git a/packages/rtl-objpas/src/inc/variants.pp b/packages/rtl-objpas/src/inc/variants.pp
index eca7f1bce3..cf45db8d87 100644
--- a/packages/rtl-objpas/src/inc/variants.pp
+++ b/packages/rtl-objpas/src/inc/variants.pp
@@ -2264,7 +2264,9 @@ begin
       RefAnyProc(Dest);
     end else if vType and varArray <> 0 then
       DoVarCopyArray(Dest, Source, @DoVarCopy)
-    else if (vType and varByRef <> 0) and ((vType xor varByRef) in [varString,varOleStr]) then
+    else if (vType and varByRef <> 0) and
+             (((vType xor varByRef) = varString)
+               or ((vType xor varByRef)= varOleStr)) then
       Dest := Source
     else if FindCustomVariantType(vType, Handler) then
       Handler.Copy(Dest, Source, False)