Clarion - Sistema para Sorteo

Hola a todos, alguien me puede ayudar con lo siguiente: Necesito hacer un programa que realice sorteos con cierta cantidad de personas.
La idea es que el programa recorra la base de datos de las personas anotadas para el sorteo y que en algun momento alguien presione el boton parar y muestre el registro con el nombre el ganador,
Mi inconveniente no esta en el recorrido, esta en como hago en la ventana para que pueda presionar el boton parar mientras siga el recorrido, pues actualmente mientras recorre la base de datos no me permite presionar el boton parar.
Me pueden dar alguna idea de como hacerlo para que funcione?

Hola marcos fijate la funcion RANDOM
podrias hacer random(1,records(tabla))
eso te daria un numero de rgistro al azar

o podrias poner eso dentro de un loop y con alguna tecla alertada salir del loop

Marco:

Lee la ayuda del comando YIELD

Lo insertas dentro del loop que recorre la tabla.

Yield mira al EVENT:Timer

En el EVENT:Timer pones tu condición para salir del loop.

Saludos