Ejemplo saliendo de un bucle en Delphi: