delphi 当ese按下时timer1变为不可用

Question

delphi 当ese按下时timer1变为不可用
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if VK_ESCAPE=Key then
 begin
   timer1.Enabled:=false;
   timer2.Enabled:=false;
   end;end;
我写的这句 为什么没有效果 

Answer 1

FORM上应该有个KeyPreview属性，把它设成TRUE也许就管用

Answer 2

我建议还是用快捷键吧，方便多了，keypress事件前提时必须要有焦点

Answer 3

要设置窗体的属性 KeyPreview=True 

Answer 4

1：加个 TActionList
2：新增项目，shortCut定义为Esc
3：定义事件