Como Usar Ctrl+X

[roman]

Creo que sería más sencillo usar los eventos OnKeyDown u OnKeyUp ya que éstos, además de la tecla presionada, pasan el parámetro Shift con el estado de las teclas Shift, Ctrl y Alt:

Código Delphi [-]
if  (Key = Ord('X')) and (ssCtrl in Shift) then
  ...

// Saludos