procedure TForm1.Button1Click(Sender: TObject);
begin
  TestProc([1,2,3,4,5]);
end;    procedure TForm1.TestProc(A: array of integer);
var i : integer;
begin
  for i := Low(A) to High(A) do
    showmessage(inttostr(A[i]));
end;