Werte in array speichern

[Matze]

Hi!

Sorry, dass ich nochmal störe, aber im Forum und in der OH habe ich nichts gefunden.

Ich möchte die Werte von einer ListBox in einem array speichern. Ich krieg's nicht hin.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a: array of real;
    i: integer;
begin
  for i:=0 to ListBox1.Count-1 do
  a[i]:=StrToFloat(ListBox1.Items[i]);
end;

Wie geht das richtig?