* Correction on previous patch

git-svn-id: trunk@32827 -

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';