[求助] 这个数组有什么问题？

代码是

procedure TForm1.Button1Click(Sender: TObject);
var
a:array of integer;
icount:integer;

begin
setlength(a,5);
for icount:=0 to 4 do
a[icount]:=icount+5;
edit1.Text:=inttostr(a[1]);
setlength(a,7);
edit2.Text:=inttostr(a[icount]);
setlength(a,3);
edit3.Text:=inttostr(a[3]);
end;

end.



结果得出edit1为6
edit2===0
可是怎么edit3就成天文数字了呢？（13968932）


为什么edit3会是天文数字啊？

求解
谢谢