como asignar letra del teclado a radio buttons en delphi 2010

[RedVenom]

como asignarle una letra del teclado a un radio button para que al momento de presionarla se selccione la opcion del radio button que corresponda pero hace tiempo ya hice la pregunta y ya lo habia resuelto pero resulta que ahora que lo quiero hacer en Delphi 2010 no funciona en esta version de Delphi les dejo el codigo y denme su opinion donde debe ir el codigo o como le puedo hacer en esta version espero su ayuda les doy las gracias de antemano

Código PHP:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = ord('A') then
  begin
    RadioButton1.SetFocus; 
  end;
 
  if key = ord('B') then
  begin
    RadioButton2.SetFocus;
  end;
 
  if key = ord('C') then
  begin
    RadioButton3.SetFocus;
  end;
 
  if key = ord('D') then
  begin
    RadioButton4.SetFocus;
  end;
end;