Hai renekr,
ich würde das einfach in zwei Schleifen machen. Die erste
While Not (Query.eof) do durchläuft alle Datensätze.
Mit der zweiten
for - do schreibst Du jedes Feld
.AsString in eine Zeile eines TStringGrids. Dieses kannst Du dann ganz einfach speichern.
Stephan B.
"Lasst den Gänsen ihre Füßchen"