Можно для более широкого примененная сделать в стиле " скрытой процедуры"

Procedure ...
X-------------------------------------------
Begin
{ вставляемый код }
end;
X-------------------------------------------
Такой вариант позволит пользоваться локальными переменными и процедурами .