Oder verwende TStringList. Ausserdem solltest Du bei Datenmengen while not eof verwenden. Wie positionierst Du denn in AddAbt() ? Und um die Sätze zu zählen verwende die
Query-Eigenschaft RecordCount.
Delphi-Quellcode:
var
Abteilung : TStringList;
begin
Abteilung := TStringList.Create;
while not Form2.ADOQuery1.Eof do
begin
Abteilung.Add(Form2.ADOQuery1.FieldByName('Abteilung').AsString;
Form2.ADOQuery1.Next;
end;
Form2.ADOQuery1.Close;
Abteilung.Free;
end;
end.