* Variantbool must be assignable - > winbool instead of short

git-svn-id: trunk@10196 -

packages/winunits-base/src/activex.pp

@@ -44,7 +44,7 @@ TYPE
      PROPID = ULONG;
      TPROPID= PROPID;
      PPROPID= ^PROPID;
-     VARIANT_BOOL        = short;
+     VARIANT_BOOL        = wordbool;
      _VARIANT_BOOL       = VARIANT_BOOL;
      CY			 = CURRENCY;
      DATE		 = DOUBLE;