* 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
(cherry picked from commit ac510d391f9d784a00275836715a25a41331460f)

packages/winunits-base/src/comobj.pp

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