1. Сформировать Class, и содержать в нем все необходимые переменные. Передавать в процедуру в качестве параметра Class. Теперь процедура работает с переменными, содержащимися в Class:
Код
MyProcedure( Class:MyClass ); begin
Class.var1 := Class.var2 + Class.var3;
End;
2. Определить переменные в начале программы НО НЕ передавать их в MyProcedure в качестве параметров, а позволить процедуре работать с внешними (для нее) переменным:
Код
var1; var2…….varN
MyProcedure(); begin
var1:= var2 + var3;
End;