Identificar el Alt+R

[jackevil99]

Hola soy nuevo en esto estoy haciendo una aplicacion
pero quiero q se efectue una accion cuando presiono una combinacion de letras
como ejemplo alt + R o control +R con ese ejemplo lo tome pero no me
funciona que me falta agregarle? intennte con :

procedure TForm1.Edit1Change(Sender: TObject);
var Key: Word; Shift: TShiftState;R:char;
begin
if (Key = Ord('R')) and (ssAlt in Shift) then
edit1.Text:='3';
end;
end.

ayudnme porfavor ,

gracias.