[[seoane]]

Para conseguir lo que quieres te aconsejo que uses excepciones:

Código Delphi [-]
  try
    while True do  // Primer Bucle
      while True do  // Segundo Bucle
        while True do  // Tercer Bucle
        begin
          Sleep(10);  
          Abort; // Aqui salimos
        end;
  except
    On E: EAbort do
    begin
      // Aqui haz algo si quieres
    end else
      raise;
  end;
  // El codigo que pongamos a continucacion se ejecutara