ADO Zugriff mit Fehler

[Union]

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.