Dazu noch ein kleiner Tipp am Rande: gewöhn Dir am besten gleich an, Arrays immer von Low() bis High() zu durchlaufen, dann bleibst Du garantiert innerhalb der Array-Grenzen und liest nicht davor oder dahinter, was ganz hässliche Fehler nach sich ziehen würde. Auch dazu ein Beispiel:
Delphi-Quellcode:
procedure TFormTest.ButtonTestClick(Sender: TObject);
var
Arr: array[1..5] of integer;
i: integer;
begin
for i := Low(Arr) to High(Arr) do
Arr[i] := i * 2;
for i := Low(Arr) to High(Arr) do
ShowMessage(Format('Wert an Index %d: %d', [i, Arr[i]]));
end;