Создание собственных горячих клавиш

procedure
 TForm1.FormKeyDown(Sender: TObject; var
 Key: Word;
Shift: TShiftState);
begin

  if
 (ssCtrl in
 Shift) and
 (chr(Key) in
 ['A', 'a']) then

    ShowMessage('Ctrl-A');
end
;

Другое по теме:

• Эмуляция нажатия клавиш
• Установка ловушки для клавиатуры
• Убрать программу из списка Ctrl+Alt+Delete