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
|