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