函数可以返回一个值，变通一下，过程也行。

1. procedure CC(var a,b,c :Integer);
2. begin
3.   c := a+b;
4. end;
6. procedure TForm1.FormCreate(Sender: TObject);
7. var
8.   a ,b,c :Integer;
9. begin
10.   a :=5; b:=5; c :=0;
11.   CC(a,b,c);
12.   ShowMessage(IntToStr(c));   {结果为 10 }
13. end;