Горячие клавиши - Delphi - Ответ 6920619

type
  TForm1 = class(TForm)
    ...
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MyProc; //например так
//ставим напротив названия процедуры курсор и нажимаем сочетание клавиш Shift+Ctrl+C.
//Будет создан шаблон процедуры. Добавьте в него свой код

type
  TForm1 = class(TForm)
    ...
  private
    { Private declarations }
  public
    { Public declarations }
procedure MyProc;
    procedure hot_key(var Message: TMessage); message WM_HOTKEY;//для этой процедуры также создаем шаблон

procedure TForm1.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Handle, 0, MOD_CONTROL, $41); // для команды Ctrl+A
end;

procedure TForm1.hot_key(var Message: TMessage);
begin
    // обработчик
    MyProc;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    UnRegisterHotKey(Handle, 0);
end;