1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssCtrl in Shift then
  begin
    if key = ord('A') then
      beep; // Strg und A
    if key = VK_Space then
      color := clgreen; // Strg und Leertaste
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TWMHotkey = record
    Msg: Cardinal;
    idHotKey: Word;
    Modifiers: Integer;
    VirtKey: Integer;
  end;

const ID = $FF;					

1:

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

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.WMHotKey(Var Msg: TWMHotkey);
begin
  if Msg.IdHotKey = id then showmessage('Hotkey wurde betätigt');
  inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Form1.Handle, ID, MOD_Control, vk_space);
end;