действия на кнопки клавиатуры в Delphi

[Trial]

Хм... неудержался чтоб не написать, хоть и тема старая уже, всеми вышеописанный способ не заработал у меня, а вот через обработчик KeyDown работает но не как не через KeyPress

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if (key = vk_F1) then button1.Click
end;