안녕하세요...여유로움입니다.
인수를 배열을 넘기시면 될거 같네요.

function hap(ar : array of integer; cnt : integer):integer;
var
  i : integer;
begin
  //cnt - 인수의 개수
  // ar - 정수 배열
  result := 0;
  for i:= 0 to cnt -1 do
  begin
     result := result + ar[i];
  end;
end;


function hap2(ar : array of integer):integer;
var
  i : integer;
begin
  // ar - 정수 배열
  result := 0;
  for i:= 0 to high(ar) do
  begin
     result := result + ar[i];
  end;
end;



호출
procedrue TForm1.Button1Click(sender:TObject);
var
  par : array of integer;
  ret : integer;
begin
  Setlength(par, 3);
  par[0] := 1;
  par[1] := 5;
  par[2] := 9;
  ret := hap(par, 3);
  showmessage(IntToStr(ret));
  ret := hap2(par);
  showmessage(IntToStr(ret));
end;

안녕하세요. 최용일입니다.

경규님 아직두 안주무시네... 날세나봐요... 저두 날새는데... 바빠죽겠어요... ㅠ'ㅠ

체크님 답변에 추가로 High함수를 쓰시면 뒤에 Cnt가 필요없을듯하구요...
파라매터 넘길때 동적배열 선언안하고 그냥 통째로 넘기는 방법도 있습니다. 참고하세요...

function hap(ar : array of integer):integer;
var
  i : integer;
begin
  // ar - 정수 배열
  result := 0;
  for i:= 0 to High(ar) do
  begin
     result := result + ar[i];
  end;
end;

호출
procedrue TForm1.Button1Click(sender:TObject);
var
  ret : integer;
begin
  ret := hap([1, 5, 9]);
  edit1.Text := IntToStr(ret);
end;

^^ 항상 즐코하세요...

헐...막 고치구 있었는데...답글이 올라오네요...ㅋㅋ
우짜다가 밤을 새요...쯧쯧
측은 지심입니다.
전 그냥 수타 하다가 나와서 글하나 남기는 건데...쿠쿠쿠

몸생각 하시면서 일 하세요.
건강이 최고입니다.

// 안녕하세요  김영대( http://www.howto.pe.kr ) 입니다

Variant 타입을 써보세요

Variant 구체적으로 예를 들어주시면 감사하겠는데요!