detener un bucle con un boton cancelar...

[Patxi]

Hola,
oye jachguate, con respecto al ejemplo que has enviado, en

Procedure TForm1.CloseQuery(sender : TObject; var CanClose : Boolean);

Begin
// evitamos que el usuario cierre la forma mientras se está ejecutando el proceso
CanClose := not FEnProceso;
End;

si al pulsar el botón de Salir, FEnProceso no es True, no pasa nada, pero si quiséramos esperar a que FEnProceso sea True y cerrar la aplicación sin tener que pulsar de nuevo, cómo se haría?
Gracias.