procedure ProcA; begin .... if EjecutaProcB Then begin ProcB; Exit; {Sale del ProcA} end; .... end; procedure ProcB; begin .... end;