* TPropVariant must be packed record, its size should match Variant (16 bytes)

* LPVERSIONEDSTREAM is a pointer type.

git-svn-id: trunk@17387 -

packages/winunits-base/src/activex.pp

@@ -1686,7 +1686,7 @@ TYPE
      end;
    VERSIONEDSTREAM = tagVersionedStream;
    TVERSIONEDSTREAM = tagVersionedStream;
-   LPVERSIONEDSTREAM = tagVersionedStream;
+   LPVERSIONEDSTREAM = ^tagVersionedStream;
    PVERSIONEDSTREAM = ^TagVersionedStream;
 
 
@@ -1856,7 +1856,8 @@ TYPE
    IPropertyStorage    = Interface;
    IEnumSTATPROPSETSTG = interface;
 
-   TPROPVARIANT = record
+   { size of this record must be 16, i.e. match Variant }
+   TPROPVARIANT = packed record
           vt : VARTYPE;
           wReserved1 : PROPVAR_PAD1;
           wReserved2 : PROPVAR_PAD2;