[boxep]

При выводе из массива в Listbox программа виснет... вроде код верный.
Прогр должна через Edit i Button ввести числа в массив, а другой кнопкой вывести из массива числа.

var mas:array of string;
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
setlength(mas,n+1);
mas[n]:=Edit1.Text;
n:= n+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
ListBox1.Clear;
for i:=0 to length(mas)-1 do
ListBox1.Items.Add(mas[i]);
ShowMessage('Caa?o?aii!');
end;