выход из while посредством нажатия кнопки delphi

[Maddy]

Есть бесконечный цикл

KeyPress:=False;
While KeyPress=False do
begin 
...// что то делает
end;

Как сделать выход из цикла когда пользователь нажмет кнопку 'w'?
Пробовал событие OnKeyPress, но управление этой процедуре не переходит.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key='w' then  KeyPress:=true;
end;

PS/ KeyPerview= True;