Detener un bucle

[jachguate]

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:

  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.