Abortando um Looping Delphi (For/While/Repeat) através de uma tecla

Esse é um problema que tenho encontrado em vários foruns.

var j : integer; begin for j:=0 to 9999999 do begin Label1.Caption := IntToStr(j) ; {.... coloque o contéudo do seu looping aqui ...} Application.ProcessMessages; {A tecla ESC para o Looping} if GetKeyState(VK_Escape) AND 128 = 128 then break; end; end;