Application Events Shortcut

 if GetKeyState(VK_CONTROL) < 0 then // CTRL+
  begin
    case Msg.CharCode of
      Ord('E') : //do something when CTRL + E;
      VK_ESCAPE : //do something when CTRL + ESC;
      VK_F12 : //do something when CTRL + F1
    end;
  end;