Es que en el OnChange la cosa no anda, jackevil99.
La cosa funciona en el OnKeyDown, donde la variable Shift y Key ya vienen como parámetro.
Y, para agregar otra cosa más que hay que tener en cuenta (no te me enojes Román
):
A Román se le escapó una cosa, con su código también vamos a enganchar la pulsación de Ctrl-Alt-R, Shift-Alt-R y Ctrl-Shift-Alt-R. Así que hay que tener cuidado...
Si se quiere detectar sólo la pulsación de Alt, y ninguna otra, la cosa sería así:
Código Delphi
[-]
if (Key = Ord('R')) and ([ssAlt] = Shift) then
HazAlgo;
Saludos.