Problema con simulacion de interrupcion de procesos

[gersojn]

Hola, nuevamente aca molestando y solicitando su ayuda, veran en mi clase de programacion estamos profundizando sobre los procesos, el problema es que aun no iniciamos con THreads, de momento solo trabajamos con simulaciones de "como se ve y como actua un hilo(THread).

Estoy trabajando en una aplicacion que tiene multiples procesos y sub procesos, los cuales se ejecutan aleatoriamente, durante un lapso de 2 segundos, y bueno para que tengan una idea de donde radica mi problema, explico los procesos.

Aca no hay problema:

Proceso1(); en este proceso llamo 3 subprocesos, que lo unico que hacen aumentar un Progressbarr, cada subprocesos contiene un progressbar.

Proceso2(); exactamente igual al proceso 1 y Proceso3(); es tambien lo mismo.

NOTA: se ejecuta proceso tras proceso, es decir al cumplir el intervalo de 2 seg, para a ejecutar otro procesos, pero nunca se detiene.

El Problema es que ahora tengo un cuarto procesos llamado Interrupciones, el cual cuenta con varios subprocesos.

Y tengo que realizar lo siguiente:

que cuando aleatoriamente el proceso Interrupciones se active, muestre un mensaje o mensajebox, que muestre un mensaje, por ejemplo, " Desea continuar".

Pero al mostrar este mensaje todo lo demas quede detenido, ya que cuando hago esto me muestra el mensaje pero continua ejecutando otros procesos, tras otro.

Mi primera solucion, fue hacerlo mecanicamente, de forma que cuando ingrese al proceso interrupciones, desactive todos los timers,(con excepcion de uno que es el que lleva un control del tiempo de ejecucion de la aplicacion), y si funciona, la cuestion es que esto debe ser automatico.

existe alguna otra forma? habia pensado trabajar con excepciones, y bueno no se si sea correcto aun investigo eso, porque creo que se usan para el control de interrupciones pero aun no confirmo ello, pero bueno se podrian congelar los demas procesos con una excepcion?

NOTA: Los procesos se ejecutan con un timer de 2 seg.

De antemano muchas gracias por la ayuda.

Agrego el codigo, de momento lo tengo solo con un msj, sin excepcion y sin desactivar los timers

Código Delphi [-]
procedure interrupciones();
var
result:Boolean;
begin
Randomize();
//opcion4 es una variable global por eso no esta en el procedure
opcion4:=random(6)+1;

if opcion4 = 1 then
Begin
 if application.MessageBox (pchar('Desea continuar?'),
      pchar('Mensaje aplicacion Hilos'), (MB_YESNO + MB_ICONQUESTION)) = IDYES then
    result := true
  else
    result := false;
End;

if opcion4 = 2 then
Begin
ShowMessage('mensaje');
End;

if opcion4 = 3 then
Begin
ShowMessage('mensaje');
End;

if opcion4 = 4 then
Begin
ShowMessage('mensaje');
End;

if opcion4 = 5 then
Begin
ShowMessage('mensaje');
End;

if opcion4 = 6 then
Begin
ShowMessage('mensaje');
End;
end;