--- Merging r21892 into '.':

U    packages/winunits-base/src/comobj.pp

# revisions: 21892
r21892 | michael | 2012-07-12 10:42:06 +0200 (Thu, 12 Jul 2012) | 1 line
Changed paths:
   M /trunk/packages/winunits-base/src/comobj.pp

* Fix 64-bit compilation (Bug ID 21874)

git-svn-id: branches/fixes_2_6@22354 -

packages/winunits-base/src/comobj.pp

@@ -1699,7 +1699,7 @@ HKCR
         else
         begin
           Result := TAutoObjectFactory(Factory).DispTypeInfo.Invoke(Pointer(
-            Integer(Self) + TAutoObjectFactory(Factory).DispIntfEntry^.IOffset),
+            PtrUint(Self) + TAutoObjectFactory(Factory).DispIntfEntry^.IOffset),
             DispID, Flags, TDispParams(Params), PVariant(VarResult)^, PExcepInfo(ExcepInfo)^, PUINT(ArgErr)^);
         end;
       end;