SaveToFile的问题。。(100分)

数据库里的记录是这样；
123,1233;
213,123;
22,22;
查询出来用RichEdit1.Lines.SaveToFile('d:/2006.txt')的到的结果，然后打开2006.txt却是
{/rtf1/ansi/ansicpg936/deff0/deflang1033/deflangfe2052{/fonttbl{/f0/fnil/fcharset134 MS Sans Serif;}{/f1/fnil/fcharset2 Symbol;}}
/viewkind4/uc1/pard{/pntext/f1/'B7/tab}{/*/pn/pnlvlblt/pnf1/pnindent0{/pntxtb/'B7}}/fi-200/li200/lang2052/f0/fs16 123,1233;
/par {/pntext/f1/'B7/tab}213,123;
/par {/pntext/f1/'B7/tab}22,22;
/par {/pntext/f1/'B7/tab}
/par }
怎么才可以得这样的结果（用RichEdit1.Lines.SaveToFile('d:/2006.txt')）；
123,1233;
213,123;
22,22;

你是如何查出来的？
在查出来的地方保存就是了，或者简单点用TMEMO替代一下TRICHEDIT。

或者：
如：
procedure xxxx';
var
s: string;
begin

With TStringList.Create do
try
DataSet1.First;
while not DataSet1.Eof do
begin
Add( DataSet1.FieldByName('Field1').AsString ); //根据你的情况组合一下
DataSet1.Next;
end;
SaveToFile('d:/2006.txt'); //保存文件
s := Text; // 组合的结果也放在S里了其它地方也就可以用了。
finally
Free;
end;
end;

RichEdit.PlainText := True

接受答案了.