关于动态数组的赋值问题

我在unit1里面有个动态整形数组
index_Arrary : Array of Integer;
setlength(index_Arrary,imagelist1.Count);
    for i:=0 to  toolbar1.ButtonCount -1 do
    begin
      index_Arrary[i]:=toolbar1.Buttons[i].ImageIndex;
    end;
我在unit2中也有个数组 index_Arrary2 : Array of Integer;用于接收!
我的问题是我如何把我在单元1中的数组中的内容全部赋值到单元2的这个数组中呢?
我的unit2是主窗体先run的!如果赋值的话unit1的数组没有分配空间肯定报告异常!
我该怎么做呢?