新手 delphi 给程序添加快捷键有关问题

新手 delphi 给程序添加快捷键问题
本人刚接触delphi编程，再做一个业务台程序，想给里面一些常用按键添加快捷键，类似于QQ的一些热键。望大神指点？？
[解决办法]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    HotkeyID: integer;
    procedure WMHotkeyHandle(var Msg: TMessage); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  HotkeyID := GlobalAddAtom(Pchar('UserDefineHotKey')) - $C100;
  RegisterHotkey(Handle, HotkeyID, 0, VK_F2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotkey(Handle, HotkeyID);
  DeleteAtom(HotKeyID);
end;

procedure TForm1.WMHotkeyHandle(var Msg: TMessage);
begin
  if (msg.LParamHi = VK_F2) then
  begin
    msg.Result := 1;
    ShowMessage('You have press F2!');
  end;
end;

end.