variable aus array nicht definiert

[delphidummy]

Nachdem unsere letzte Frage so schnell und effektiv beantwortet wurde, kommt hier direkt mal unser nächstes Problem:


var
AnzahlZL_array: array [1..6] of single;

const Zellenbreite: array [1..6]of integer = (1000,1900,2800,3700,4600,5500);

und dann

procedure TForm1.ButtonBerechnenClick(Sender: TObject);
var
a: Integer;
begin

// Berechnung der Anzahl der Zellen in der Länge
LaengeRegal:= strtofloat (editregallaenge.text);
for a := 1 to 6 do
begin
AnzahlZL_array[a]:= trunc((LaengeRegal*1000-100)/Zellenbreite[a])
end;
showmessage (floattostr( AnzahlZL_array[a]));

nach dem showmessage-Befehl wird uns dann für AnzahlZL der Wert 0 angezeigt, obwohl ja eigentlich mehrere Werte angegeben werden müsste...
Als Warnhinweis gibt Delphi uns dann
[Pascal Warning] Unit1.pas(401): W1037 FOR-Loop variable 'a' may be undefined after loop

Kann damit jemand was anfangen, wir leider nicht...
Vielen Dank im voraus für eure Hilfe