hola drascula!
eh, una forma un poco chapucera (supongo que habra otra mas elegante de hacerlo) es mediante una bandera.
Esto es, ejecutar procedimiento1, y desde el procedimiento2 ir haciendo lo que tengas que hacer, cuando quieras que procedimiento1 se interrumpa manda alguna señal de algun tipo (pon a true una variable global, escribe algo en algun fichero, modifica el caption de un label, etc.) y procedimiento1 que vaya revisando periodicamente dichos cambios, tal que: if (cambio) then end sub. Donde cambio puede ser cualquier cosa comentada antes.
Espero haberte ayudao. Saludos.
