Не работает процедура KeyDown\Up в Дельфи

[DeKot]

Столкнулся с непонятной для меня загадкой. На форме
Timer и GroupBox с тремя RadioButton. В таймере проверяется какая "радиокнопка" включена и выводится в Label название "радиокнопки" и на форму код состояния трех "радиокнопок".

implementation

{$R *.dfm}

procedure CheckVibor;// проверка включенной "радиокнопки"
begin
  if Form1.RadioButton1.Checked = false then a:= 0 
   else begin a:= 1; _text:= '"СТОП"'; end;
  if Form1.RadioButton2.Checked = false then b:= 0 
   else begin b:= 1; _text:= '"ПУСК"'; end;
  if Form1.RadioButton3.Checked = false then c:= 0 
   else begin c:= 1; _text:= '"ТЕСТ"'; end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);// Interval = 200 mc
begin
  Form1.Canvas.TextOut(20,50,FormatDateTime('c',Now));
  CheckVibor;
  Form1.Canvas.TextOut(30,200,'Код режима -  ' 
    + IntToStr(a) + ' ' + IntToStr(b) + ' ' + IntToStr(c));
  Form1.Label1.Caption:= 'Включен  ' + _text;
end;

Все работает.Переключение "радиокнопок" нормально происходит клавишами "стрелки влево-вправо-вверх-вниз".Причем это включено автоматически.
Я хочу переключать "радиокнопки" другим образом - к примеру клавишами '1' ,'2', '3' . Добавляю процедуру обработчик

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
  49: Form1.RadioButton1.Checked:= true; // клавиша "цифра 1"
  50: Form1.RadioButton1.Checked:= true; // клавиша "цифра 2"
  51: Form1.RadioButton1.Checked:= true; // клавиша "цифра 3"
  13: Form1.Caption:= '   Подтверждение  выбора'; // ENTER
  end;
end;

Но эта процедура не работает вообще.
Почему не работает обработчик нажатия клавиш ?
Как убрать переключение "радиокнопок" клавишами "стрелки" ?
Полный проект во вложении.

[raxp]

события formKeydown, FormKeypress уже плохие?

[russian-stalker]

Только что сделал так:

case key of
49:close;
end;

И работает.

[mihali4]

case Key of
  49: Form1.RadioButton1.Checked:= true; // клавиша "цифра 1"
  50: Form1.RadioButton2.Checked:= true; // клавиша "цифра 2"
  51: Form1.RadioButton3.Checked:= true; // клавиша "цифра 3"

Будьте повнимательнее и загадок будет гораздо меньше...

[raxp]

1) form.keypreview:= true

2)

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
  49: Form1.RadioButton1.Checked:= true; // êëàâèøà "öèôðà 1"
  50: Form1.RadioButton2.Checked:= true; // êëàâèøà "öèôðà 2"
  51: Form1.RadioButton3.Checked:= true; // êëàâèøà "öèôðà 3"
  13: Form1.Caption:= '   Ïîäòâåðæäåíèå  âûáîðà'; // ENTER
  end;
end;

[DeKot]

To russian-stalker

case key of
49:close;
end;

Имеется ввиду вместе с приведенным в первом посте кодом.
To mihali4 Да, ошибся при копировании, но после исправления все равно не реагирует.
To raxp
А вот это

form.keypreview:= true

помогло в части работы обработчика клавиш. Спасибо.
Остался вопрос - как убирается влияние клавиш "стрелки" на выбор "радиокнопок" ?

[raxp]

Остался вопрос - как убирается влияние клавиш "стрелки" на выбор "радиокнопок" ?

це просто...

procedure tForm1.Hook(var Msg: tMsg; var Handled: Boolean);
begin
  if (Msg.Message = WM_KeyDown) and (Msg.wParam in [37,38,39,40]) then
    Handled := True
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMessage := hook

[DeKot]

Всем спасибо. Научили.