Yo te sugeriria, al poner una llamada
application.ProcessMessages además, que tengas cuidado con que otras cosas dejarás hacer al usuario, porque la aplicación sigue siendo "responsiva", y el usuario puede interactuar con botónes, menús, etc.
Por ejemplo, si tenes una rutina de finalización que es imperativo que corra... el usuario podrá cerrar la aplicación sin ejecutarla.... por lo tanto también deberias tener algo como:
Código:
MiClase = Class(TForm)
....
Private
FCancelado : Boolean;
FEnProceso : Boolean;
....
end;
Implementation
Procedure TMiClase.HacerProceso;
Begin
FEnProceso := True;
try
Inicializacion;
Repeat
HacerUnBucleDelProceso;
Until (CondicionesNormales) or (FCancelado);
Finalizacion;
finally
FEnProceso := False;
end;
End;
Procedure TMiClase.BotonCancelarClick(Sender : TObject);
Begin
FCancelado := True;
End;
Procedure TMiClase.OnCloseQuery(Sender : TObject; Var CanClose : Boolean);
Begin
CanClose := Not FEnProceso;
End;
Además, te sugeriria deshabilitar botones, por ejemplo, para que el usuario no inicie el proceso dos veces concurrentemente.... y algunas otras consideraciones que dependerán de tu programa....
Hasta luego.