массив с listbox

[__@cmd@__]

есть такая вещь сначала в листбокс добавляется значение а затем все это надо загнать в массив как это правильно будет выглядеть

 for i:=1 to 20 do begin a[i]:=listbox.itemsindex;

так не работает а как надо правильно?

[lexaltd]

for i := 0 to ListBox1.Items.Count - 1 do
   begin
    a[i] := ListBox1.Items.Strings[i];
   end;