var 
 kl,kl1,fkl1, fkl: cardinal;
keyid,keyid1: integer;
kl1:= MOD_CONTROL;
    case ComboBox3.ItemIndex of
    0:
            fkl1 := VK_F12;
    1:
      fkl1 := VK_F11;
      2:
      fkl1 := VK_F10;
      3:
      fkl1 := VK_F9;
  end;
  keyid1 := GlobalAddAtom('XPLOIT1');
  RegisterHotKey(Handle, keyid1, kl1, fkl1);
//и вторая комбинация
  kl := 0;
  case ComboBox2.ItemIndex of
    0:
            fkl := VK_F12;
    1:
      fkl := VK_F11;
      2:
      fkl := VK_F10;
      3:
      fkl := VK_F9;
  end;
  keyid := GlobalAddAtom('XPLOIT');
  RegisterHotKey(Handle, keyid, kl, fkl);