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;