* TAutoObject.GetTypeInfo function should return DispTypeInfo instead of ClassInfo. Fix by Korba812. Fixes Eventsinks for openoffice.

https://forum.lazarus.freepascal.org/index.php/topic,68806.0/topicseen.html

packages/winunits-base/src/comobj.pp

@@ -1862,7 +1862,7 @@ HKCR
           Result := DISP_E_BADINDEX
         else
         begin
-          ITypeInfo(TypeInfo) := TAutoObjectFactory(Factory).ClassInfo;
+          ITypeInfo(TypeInfo) := TAutoObjectFactory(Factory).DispTypeInfo;
           Result := S_OK;
         end;
       end;