1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

var
  Form2: TForm2;
  id1:integer;
  test:string;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage(test);
end;

procedure TForm2.FormCreate(Sender: TObject);
Const
  MOD_ALT = 1;
  MOD_CONTROL = 2;
  MOD_SHIFT = 4;
  MOD_WIN = 8;
  VK_F = 70;
begin
// Hotkey registrieren
  id1 := GlobalAddAtom('Hotkey1');
  RegisterHotKey(Handle, id1, MOD_CONTROL, VK_F);
end;

procedure TForm2.WMHotKey(var Msg: TWMHotKey);
begin
  // Auf Hotkey reagieren
Form2.Label1.Caption:='hallo';
end;                    

1:

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