Interrumpir un ciclo Repeat - Until

[[FGarcia]]

Hola!

Un saludo y un feliz año a todos los integrantes del club.

Mi pregunta basicamente es ¿como interrumpir le ejecucion de un ciclo Repeat - Until (son dos anidados) usando la tecla ESC?

basicamente el ciclo es:

Código Delphi [-]
repeat
   repeat
      until //lo que sea
until //lo otro 
 
//intente esto pero no me hace nada. key es un var de tipo Char
repeat
   repeat
      if key = #27 then
        break;
      until //lo que sea que espere
   if key = #27 then
      break;
until //lo otro que espere

Como siempre agradeciendo su ayuda