не совсем понятно, что имеется под включением/выключением и переключением, но может это:
Код:
procedure SomeProcedure
begin
...
if что-то then exit // выключение
else .....
...
if что-то then
begin
SomeProcedure1;// включение
exit; // переключение
end else ...
end;
примером включения могут служить различные события или просто обращение к процедуре