Обнаружить на форме одновременное нажатие нескольких клавиш

{ 
  I would like to detect more than 2 keys being pressed within a form. 
  For example I would like to know if the user pressed time. 
  The onkeydown seems to only check for one or two keys max but surely 
  you can determine what keys are currently down. 
}

 // You can use GetKeyState: 

procedure
 TForm1.FormKeyDown(Sender: TObject; var
 Key: Word;
   Shift: TShiftState);
 begin

   If
 ((GetKeyState(VK_CONTROL) AND
 128)=128) and

      ((GetKeyState(VK_F5)      AND
 128)=128) and

      ((GetKeyState(ord('8'))   AND
 128)=128)
     then

       ShowMessage('CTRL+F5+8 Pressed');
 end
;

 ( Remember: Form1.Keypreview := TRUE )


 // Or you can read the entire KeyBoard Status, 
// and later check for the three keys: 

procedure
 TForm1.FormKeyDown(Sender: TObject; var
 Key: Word;
   Shift: TShiftState);
 var

    KeybState: TKeyboardState;
 begin

   GetKeyboardState(Teclado);
   If
 ( (KeybState[VK_CONTROL] and
 128)=128 ) and

      ( (KeybState[VK_F5]      and
 128)=128 ) and

      ( (KeybState[Ord('8')]   and
 128)=128 )
     then

       ShowMessage('CTRL+F5+8 Pressed');
 end
;

Другое по теме:

• Эмуляция нажатия клавиш
• Установка ловушки для клавиатуры
• Убрать программу из списка Ctrl+Alt+Delete