diff --git a/packages/winunits-base/src/typelib.pas b/packages/winunits-base/src/typelib.pas
index 8c3753ee5d..805f1ffe6e 100644
--- a/packages/winunits-base/src/typelib.pas
+++ b/packages/winunits-base/src/typelib.pas
@@ -822,7 +822,7 @@ begin
                 end;
               end;
             tmp:='  procedure Set_%s(%s %s:%s); %s;'#13#10;
-            if not (bParamByRef or (sType='OleVariant')) then 
+            if not bParamByRef then 
               Modifier:='const'
             else
               Modifier:='var';