[angvelem]

Как вариант

Код:

var
  Modif : DWORD;
  Key   : Word;
  State : TShiftState;

...
  Modif := 0;
  if hkCtrl in HK.Modifiers then
    Modif := Modif or MOD_CONTROL;
  if hkAlt in HK.Modifiers then
    Modif := Modif or MOD_ALT;
  if hkShift in HK.Modifiers then
    Modif := Modif or MOD_SHIFT;
  ShortCutToKey(HK.HotKey, Key, Shift);

  RegisterHotKey(Handle, 1, Modif, Key);