Bucle Do...Loop no permite que el programa prosiga.

Una consulta, tengo un formulario con dos botones.

Iniciar y Finalizar

En iniciar tengo un do loop que genera un valor al azar y lo va mostrando
en un label en el form, esto lo hace mientras repetir sea igual a 0 y en
finalizar pone en la variable repetir a 1 para que finalice el do...loop.
La variable repetir es global.

El problema es que al poner

do
.
if repetir=1 then exit do
.
loop

el programa se cuelga o queda en el proceso del do...loop y no me permite
pulsar el boton finalizar para poner repetir=1


¿Como puedo hacer para que el bucle no impida seguir con los procesos del
programa?



Daniel.