delphi如何让一个过程引用另一个过程的的参数？

Question

列：proucedure 1(a,b:integer)
var
 c:ingteger;
begin
c:=a+b;
我如何在proucedure2 中引用那个c？

Answer 1

这个应该用function了吧
function fun1(a,b:integer):integer
begin
  result := a + b;
end;procedure fun2;
var
  aInt : integer;
begin
  aInt := fun1(32,23);
end;

Answer 2

谢谢楼上两位朋友的回复~~我的列子没有举明白
因该这么写
proucedure 1(a,b:integer)
var c:integer;
begin
c:=1+1;
end
我如何在proucedure2中使用那个C，实际问题是做了一个过程，当这个过程运行时产生了列子中的C，我现在要在一个事件响应程序中用到那个C，如何用？