ADO Zugriff mit Fehler

[Kevin11]

So jetzt habe ich gemerkt, dass die Abfrage durchgeht. Jetzt habe ich Probleme mit arrays.

Delphi-Quellcode:

    
var
  Abteilung : array of string;
  i : Integer;
begin
    while not Form2.ADOQuery1.Eof do
        begin
//          Form2.Memo1.Lines.Add(IntToStr(count));
//          Abteilung := Form2.ADOQuery1.FieldByName('Abteilung').Value;
          Form2.ADOQuery1.Next;

        end;
        Form2.ADOQuery1.Close;

      for i := 0 to count do
      begin
        Abteilungsnummer[i] := AddAbt(Abteilung[i]);
      end;
end.

Warum geht das nicht?