Вот пример установки\снятия "горячей" клавиши по Ctrl+A из drkb
Код:
procedure TForm1.FormActivate(Sender: TObject);
begin
RegisterHotKey(form1.Handle,123,mod_control,$41);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(Handle, 123);
end;