* const pointer of names argument of ITypeinfo.getidsofnames is not a reference, make it a proper double pointer. Note that this is not the IDispatch routine of the same name that is used a lot in the RTL.

 Reported in forum

(cherry picked from commit 6e0b67d5f7fb127b7876636f20dec50b6827d09b)

packages/winunits-base/src/activex.pp

@@ -3338,7 +3338,7 @@ TYPE
      Function  GetRefTypeOfImplType(index: UINT; OUT pRefType: HREFTYPE):HResult;StdCall;
      Function  GetImplTypeFlags(index: UINT; OUT pImplTypeFlags: WINT):HResult;StdCall;
      {$ifndef Call_as}
-      Function  GetIDsOfNames(CONST rgszNames: pOleStr; cNames: UINT; OUT pMemId: MEMBERID):HResult;StdCall;
+      Function  GetIDsOfNames(rgszNames: POleStrList; cNames: UINT; OUT pMemId: MEMBERID):HResult;StdCall;
      {$else}
       Function  LocalGetIDsOfNames():HResult;StdCall;
      {$endif}