[TRUCO DELPHI] Interrumpir un ciclo por la interrupcion de una Tecla
delphi
var i : integer; begin for i:= 0 to 9999999 do begin Label1.Caption:= IntToStr(i); Application.ProcessMessages; if GetKeyState(VK_Escape) AND 128=128 then break; end; end;
Saludos!