如何将db格式的数据导出到txt.(50分)

如何将db格式的数据导出到txt.
例如数据库里的数据是：

11 22 33 44 55
111 222 333 444 555

我想导出到的txt文件的内容是：

编号 id 格式 代号 产品代号
11 22 33 44 55
111 222 333 444 555

意思就是导出的txt格式文件要有各字段的说明，这样应该如何做。

procedure DbbaseToTxt(table1: TDataSet; Txtfilename: string);
var
i, num, J, TNUM: integer;
s, st: string;
Tf: Textfile;
begin
assignfile(tf, Txtfilename);
rewrite(tf);
num := Table1.RecordCount;
TABLE1.First;
for i := 1 to num do
begin
TNUM := TABLE1.FieldCount;
s := '';
for J := 0 to TNUM - 1 do
begin
st := table1.fields.Fields[j].AsString;
s := s + st;
if j < tnum - 1 then
s := s + ' ';
end;

writeln(tf, s);
TABLE1.Next;
end;

closefile(tf);
end;

同意楼上的

s := '';这一行应该改为：
s:='编号 id 格式 代号 产品代号'+#13#10;

thx