Detener un bucle

[lfidanza]

Hola, se que esto debe ser muy sencillo, pero no lo puedo solucionar.
Tengo que realizar un bucle dentro del cual se controlan los datos que entran a la PC por medio de un puerto. Este proceso se tiene que hacer indefinidamente hasta que el usuario lo detenga. Ahora, cómo hago para generar un evento que pueda interrumpir un bucle??
Yo hago

Repeat

Leer puerto, etc etc

Until ......

Antes en Turbo Pasca utilizaba 'Until Keypressed', pero ahora no ecuentro nada equivalente.

Otra cosa que pensaba era hacer

Repeat
...

if ???? Break

Until ...

Pero tampoco se me ocurre que condición puedo utilizar para detener.
Me gustaría que se detenga cuando el usuario pulse cualquier tecla del teclado, o si no se puede poner un botón y que lo presione para terminar.

Muchas gracias !!!!!!!!!