Clarion - Sistema Sorteo

Hola a todos alguien me pueda dar un idea de como realizar un sistema para sorteos? La idea es recorrer todos los clientes y en algun momento presionar un boton y que pare el recorrido.
Gracias

usa la funcion Random

Marco:
A lo mejor este código te sirve
!!!
LOC:Bandera = FALSE
LOOP
CLEAR(TBL:RECORD)
SET(TBK:CLAVE,TBL:CLAVE)
LOOP Until Access:TABLA.Next()
ASK !wait for a keystroke
IF KEYCODE() = EscKey !if Esc key pressed
MESSAGE('EL PREMIADO: ' & TBL:IdTabla )
LOC:Bandera = TRUE
BREAK !break out of the loop
ELSE !otherwise
BEEP !sound the alarm
END
UNTIL LOC:Bandera = TRUE !!! PRIMER LOOP