Sind alle Felder vom Typ String, dann geht auch das hier - Tippfehler vorbehalten:
Delphi-Quellcode:
var
i: integer;
f: TField;
begin
// iAnfang und iEnde bitte passend wählen
for i := iAnfang to iEnde do begin
f := tabS2.Fields[i];
if f.AsString <> '' then
dbFach.Items.Add(f.AsString);
end;
end;
Grüße vom marabu