在方法中，出现数组类型的参数：

procedure TForm1.Button2Click(Sender: TObject);
type
  TOneArray = array of Integer;
  procedure AddArrayItem(var Arr: TOneArray; x: Integer);//var形參要求實參傳地址過來
  begin                                   //然後根據地址找到實參，直接對實參進行操作
    //SetLength(Arr,Length(Arr)+1);
    SetLength(Arr,Length(Arr)+3);
    Arr[High(Arr)] := x;
  end;
var Arr01: TOneArray;
begin
  AddArrayItem(Arr01 ,10) ;
  //操作完成，實參已被改變，賦了值：(0, 0, 10)
  ShowMessage(IntToStr(Arr01[0])); //0
  ShowMessage(IntToStr(Arr01[2]));//10
end;