Как в редакторе tlb (COM) указать тип параметра "HBITMAP *p"

cx: SYSUINT; out phbmb: OLE_HANDLE; out pdwAlpha: OLE_HANDLE

pszFilePath: PWideChar; grfMode: Integer

  IInitializeWithStream = interface(IUnknown)
    ['{A13175A3-ABD9-47DA-9621-4CE40490E411}']
    procedure Method1(const pstream: IUnknown; grfMode: Integer); safecall;
  end;

unit Test;
 
interface
 
uses
  Windows, ActiveX, ComObj, ShlObj, Vcl.Dialogs;
 
type
 
  IThumbnailProvider = interface(IUnknown)
    function GetThumbnail(cx: UINT; out phbmp: HBITMAP; out pdwAlpha: DWORD): HResult; stdcall;
  end;
 
  IInitializeWithFile = interface(IUnknown)
    function Initialize(pszFilePath: PWideChar; grfMode: DWORD): HResult; stdcall;
  end;
 
  IInitializeWithStream = interface(IUnknown)
    function Initialize(const pstream: IUnknown; grfMode: DWORD): HResult; stdcall;
  end;
 
  TMyThumb = class(TComObject, IThumbnailProvider, IInitializeWithStream, IInitializeWithFile)
  private
  protected
    function GetThumbnail(cx: UINT; out phbmp: HBITMAP; out pdwAlpha: DWORD): HResult; stdcall;
    function IInitializeWithFile.Initialize = Initialize_WF; // извращенцы
    function IInitializeWithStream.Initialize = Initialize_WS;
    function Initialize_WF(pszFilePath: PWideChar; grfMode: DWORD): HResult; stdcall;
    function Initialize_WS(const pstream: IUnknown; grfMode: DWORD): HResult; stdcall;
  end;
 
  MyThumb = IThumbnailProvider;
 
const
  MyGUID: TGUID = '{4933E5A1-3367-4C08-8802-677005D745C0}';
 
implementation
 
uses ComServ, SysUtils, ShellApi, Registry;
 
function TMyThumb.GetThumbnail(cx: UINT; out phbmp: HBITMAP; out pdwAlpha: DWORD): HResult;
begin
 beep; ShowMessage('1');
end;
 
function TMyThumb.Initialize_WF(pszFilePath: PWideChar; grfMode: DWORD): HResult;
begin
 beep; ShowMessage('2');
end;
 
function TMyThumb.Initialize_WS(const pstream: IInterface; grfMode: DWORD): HResult;
begin
 beep; ShowMessage('3');
end;
 
initialization
  MessageBeep(MB_ICONERROR);
  ShowMessage('Работает');
  TComObjectFactory.Create(ComServer, TMyThumb, MyGUID, 'MyThumb123', 'MyThumb123', ciMultiInstance, tmApartment);
end.