Видел как-то такую конструкцию(именно так, процедура пуста).
Но не понял для чего это нужно. Может можно как-0то упростить???

Type
Proc1 = Procedure;

Var
Rs : Proc1;

Procedure Pro;
Begin
End;
..............
Rs:=pro;