Delphi - ¿Cómo usar el archivo de ayuda CHM HTML con la aplicación Delphi XE?

http://edn.embarcadero.com/article/27842 artículo describe cómo usar el archivo CHM. Hice todos los pasos descritos allí.

Adicional

const
  HH_DISPLAY_TOPIC        = $0000;
  HH_DISPLAY_TOC          = $0001;
  HH_CLOSE_ALL            = $0012;

function HtmlHelp(hwndCaller: HWND;
  pszFile: PChar; uCommand: UINT;
  dwData: DWORD): HWND; stdcall;
  external 'HHCTRL.OCX' name 'HtmlHelpA';

y función pública HH`

function TForm1.HH(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  if (Command = 0) and (Data = 0) then
      HtmlHelp(Application.Handle,
        PChar(Application.HelpFile),
        HH_DISPLAY_TOC, 0);

  CallHelp := False;
end;

En FormCreate

  HelpDir:=ExtractFilePath(Application.EXEName);
  Application.HelpFile:=HelpDir+'Sample.chm';
  Application.OnHelp := HH;

En el evento onClick button1 agregó el siguiente código:

HH(0, 0, dummy);

Después de hacer clic en el botón 1, el cursor se convierte en un reloj de arena por un tiempo, y eso es todo.

¿Qué estoy haciendo mal?

¿Y cómo se puede utilizar el archivo de ayuda CHM desde la aplicación DelphiXE?