Die Spaltennamen aber bitte nicht da schreiben, wo dein Kommentar steht, sondern vor der while-Schleife! Evtl geht dann auch ein FDQuery1.Fields[I].Fieldname (kenne FD auch nicht) analog zu deinem bisherigen Code:
Delphi-Quellcode:
for I := 0 to FDQuery1.FieldCount - 1 do
begin
if DatenFeld > '' then
DatenFeld := DatenFeld + '';
DatenFeld := DatenFeld + '' + FDQuery1.Fields[I].Fieldname + ' | ';
end;