Delphi-PRAXiS - Delphi Hotkey auf Mausklick

Hallo,
bei den Schweizern habe ich auf

dieser Website etwas über Hotkeys gefunden.
Dazu habe ich aber mehrere Fragen.
Zum einen frage ich mich, warum die beiden Hotkeys id1 und id2 nicht funktionieren?
Zum anderen aber, wie ich einen Hotkey auf eine Maustaste lege? Bei mir hats nicht geklappt.
Achja, und hier der Quellcode:

Delphi-Quellcode:

			unit hotkeys;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    id1,id2,id3,id4:integer;

    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMHotKey(var Msg: TWMHotKey);

begin

  if Msg.HotKey =id1 then

  begin

    Keybd_Event(ord('C'),0,0,0);

    sleep(78);

    Keybd_Event(ord('C'),0,KEYEVENTF_KEYUP,0);

  end;

  if Msg.HotKey =id2 then

    ShowMessage('Ctrl + A + R pressed !');

  if Msg.HotKey =id3 then

    ShowMessage('Win + F4 pressed !');

  if Msg.HotKey =id4 then

  begin

    Keybd_Event(ord('R'),0,0,0);

    Keybd_Event(ord('R'),0,KEYEVENTF_KEYUP,0);

  end;

end;

procedure TForm1.FormCreate(Sender: TObject);

const

  MOD_ALT=1;

  MOD_CONTROL=2;

  MOD_SHIFT=4;

  MOD_WIN=8;

  VK_A=$41;

  VK_R=$52;

  VK_F4=$73;

  VK_LBUTTON=4;

begin

  id1:=GlobalAddAtom('Hotkey1');

  RegisterHotKey(Handle, id1, MOD_CONTROL, VK_A);

  id1:=GlobalAddAtom('Hotkey2');

  RegisterHotKey(Handle, id2, MOD_CONTROL + MOD_ALT, VK_R);

  id3 := GlobalAddAtom('Hotkey3');

  RegisterHotKey(Handle, id3, MOD_WIN, VK_F4);

  id4 := GlobalAddAtom('Hotkey4');

  RegisterHotKey(Handle, id4, VK_MBUTTON,0);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  UnRegisterHotKey(Handle, id1);

  GlobalDeleteAtom(id1);

  UnRegisterHotKey(Handle, id2);

  GlobalDeleteAtom(id2);

  UnRegisterHotKey(Handle, id3);

  GlobalDeleteAtom(id3);

  UnRegisterHotKey(Handle, id4);

  GlobalDeleteAtom(id4);

end;

end.

Hoffe ihr könnt mir helfen und schonmal vielen Dank im Voraus.

Gruß

Stefan