Как прервать цикл, когда нажата кнопка какая-нибудь?

[Karyuudo]

есть цикл

for z:=1 to 99999 do   
begin
for h:=1 to 5 do
begin
x0:=800
y0:=300
while x0<=1300 do
 begin
  While y0<=620 do
  begin
  DC := CreateDC('Display', nil, nil, nil);
  Color := GetPixel(DC,x0,y0);
    if 'ffffff'=IntToHex(color,6) then
   begin
  SetCursorPos(x0,y0);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x0, y0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x0, y0, 0, 0);
  end;
  DeleteDC(DC);
  y0:=y0+2; 
  end;
  y0:=300;
  x0:=x0+2;
 end;
  sleep (1000);
 end;
end;

после того как он начинает работать, форма становится недоступной (белой ) и нельзя остановить прогу, пока не кончится цикл, либо если не завершить процесс череез ctrl alt del

а как бы сделать так, чтобы при нажатии на клавишу, например Esc, программа останавливалась и снова показывалась форма, и потом уже опять можно было запустить при необходимости?

[bitSoft]

global
 var Stop : Boolean;

............
............
............


for z:=1 to 99999 do   
begin
application.ProcessMessages; // Shtob ne zavisal
if Stop then
begin
 Stop := False;
 Exit;
end;
for h:=1 to 5 do
begin
x0:=800
y0:=300
while x0<=1300 do
 begin
  While y0<=620 do
  begin
  DC := CreateDC('Display', nil, nil, nil);
  Color := GetPixel(DC,x0,y0);
    if 'ffffff'=IntToHex(color,6) then
   begin
  SetCursorPos(x0,y0);
  Mouse_Event(MOUSEEVENTF_LEFTDOWN, x0, y0, 0, 0);
  Mouse_Event(MOUSEEVENTF_LEFTUP, x0, y0, 0, 0);
  end;
  DeleteDC(DC);
  y0:=y0+2; 
  end;
  y0:=300;
  x0:=x0+2;
 end;
  sleep (1000);
 end;
end;


//////
procedure TForm1.Button2Click(Sender: TObject);
begin
 Stop := True;
end;