Как отобразить справку при нажатии клавиши?

unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   Dialogs;
 
 type
   TForm1 = class(TForm)
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
   private
     { Private declarations }
     help_id: Integer;
     procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 // принимаем сообщене хоткей, и обрабатываем
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
 begin
   if Msg.HotKey = help_id then
       ShellExecute(Handle, 'open', '\Курсовая\Help.chm',nil, nil, SW_SHOW);
end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   // Регистрируем хоткей F1
  help_id := GlobalAddAtom('Hotkey_HELP');
  RegisterHotKey(Handle, help_id, VK_F1);
  end;
 
 // Убираем глобальные клавиши
procedure TForm1.FormDestroy(Sender: TObject);
 begin
   UnRegisterHotKey(Handle, help_id);
   GlobalDeleteAtom(help_id);
 end;
 
 end.