最简单的办法是:用一个MEMO控件,然后用如下做发.

AD1为连接数据库的控件,可以是任意一个,语法有一点不同而已.

ad1.active:=true;
memo1.lines.clear;
while not ad1.eof do 
begin
    memo1.lines.add(ad1.fieldByName('姓名'));
    ad1.next;
end;
memo1.savetofile('文件路径');

这个速度不快,用select  速度很快

1楼的有点错误 应为：
        add(ad1.fieldbyname('').asstring);