如何捕获按键？

procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        case key of     
  VK_ESCAPE:
        begin
        esc1:=1;
        end;
        end;
end;在一循环体中，若esc1=1时（即按下“ESC”键）用于转向!但为什么在循环过程中不能捕获该事件？
谢谢！