Abortar un proceso

[Tonio]

No se si te servirá, para bucles si funciona.

Ejemplo en un procedure:

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i:=0 to 9999999 do
begin
{Haces la tarea repetitiva}
Label1.Caption:=IntToStr(i);
{....}

{Procesamos los mensajes de windows}
Application.ProcessMessages;
{Si tecla ESC pulsada, paramos el bucle}
if GetKeyState(VK_Escape) and 128 =128 then break;
end;
end;

Sacado de Trucomania.
Espero te sirva.
Un saludo.
Tonio