попробуй так
Код:
uses DB, Classes;
var i : integer;
row : string;
.....
with DataSet, tstringlist.create() do
begin
first;
while not eof do
begin
row := '';
for i :=0 to fields.count do
row := row + ';' + fields[i].asstring;
add(row);
next;
end;
savetofile(filename);
free;
end;
dataset- набор данных к которому подключен Грид(ttable, tquery...),
filename - название файла куда сохранять с полным путем к ниму