[[Bicho]]

Sólo un apunte, añade en algún punto del bucle lo siguiente:

Código Delphi [-]
Application.Processmessages;

Para que así el programa atienda a tús eventos (hacer clic sobre elo botón de cancelar) y para que no se te congele la aplicación.

Saludos