* fix #39548: correctly declare the function result of SysAllocStringLen()

packages/winunits-base/src/activex.pp

@@ -4608,7 +4608,7 @@ type
     oleaut32dll   = 'oleaut32.dll';
 
   function  SysAllocString(psz: pointer): TBStr; stdcall; external oleaut32dll name 'SysAllocString';
-  function  SysAllocStringLen(psz: pointer; len:dword): Integer; stdcall; external oleaut32dll name 'SysAllocStringLen';
+  function  SysAllocStringLen(psz: pointer; len:dword): TBStr; stdcall; external oleaut32dll name 'SysAllocStringLen';
   procedure SysFreeString(bstr:pointer); stdcall; external oleaut32dll name 'SysFreeString';
   function  SysStringLen(bstr:pointer):UINT; stdcall; external oleaut32dll name 'SysStringLen';
   function  SysStringByteLen(bstr:pointer):UINT; stdcall; external oleaut32dll name 'SysStringByteLen';