fehler bei schließen des form nach verwendung von array

[sakura]

Ein Array mit der Länge drei hat die Indizies von 0 bis 2.

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  setLength(Liste, 3);
  [color=#ff0000]for i := 0 to 2 do[/color]
    liste[i] := random(500);
end;

......