From ac510d391f9d784a00275836715a25a41331460f Mon Sep 17 00:00:00 2001
From: marcoonthegit <marco@freepascal.org>
Date: Sat, 4 Jan 2025 18:33:30 +0100
Subject: [PATCH] *  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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/winunits-base/src/comobj.pp b/packages/winunits-base/src/comobj.pp
index d3028f5359..fcf8c74608 100644
--- a/packages/winunits-base/src/comobj.pp
+++ b/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;