500里加急：关于把数据表中的查询结果输出到文本文件的问题！（在线等待）(100分)

如果我用SELECT语句对一个表进行查询，
如何将结果输出到文本文件中？（使用D
BDEMOS数据库）
或者如何将DBGRID中显示的内容输出到
文本文件中？小弟刚学编程，各位富翁莫笑！

var FLogFile:TextFile;
begin
assignfile(FLogFile, 'c:/1.txt');
rewrite(FLogFile);
while not qurey1.eof do
begin
writeln(query1.fields[0].asstring);
writeln(query1.fields[1].asstring);
query1.next;
end;
closefile(FLogFile);
end;

procedure TForm1.ExportData(DataSet: TDataSet; FileName: string);
var
bk,s,sp: string;
i: integer;
sList: TStrings;
begin
sp := '|'; //以“|”分隔字段
if not DataSet.Active then DataSet.Open;
bk := DataSet.BookMark;
DataSet.DisableControls;
sList := TStringList.Create;
try
First;
while not Eof do
begin
s := '';
for i := 0 to DataSet.Fields.Count -1 do
if s='' then s := DataSet.Fields.AsString
else s := s + sp + DataSet.Fields.AsString;
sList.Add(s);
Next;
end;
DataSet.Bookmark := bk;
DataSet.EnableControls;
sList.SaveToFile(FileName);
finally
sList.Free;
end;
end;

jian1:我试过，提示：I/O ERROR 32

谢谢jian1，我明白了！！