如何用delphi写文本文件(100分)

我在做财务凭证，怎么用delphi把数据库中的数据调出生成文本文件（.txt）。

adotable.savetofile('abc.txt')

将需要的数据copy到memo或RichEdit中
....
Memo1.Lines.add(str);
.....
Memo1.lines.SaveToFile(filename);保存为文本文件。

Procedure SetFiledata(Const FileName, Data: String);
Var
F: TFileStream;
Begin
ForceDirectories(ExtractFilePath(FileName));
F := TFileStream.Create(FileName, fmCreate Or fmOpenReadWrite Or fmShareDenyNone);
Try
Try
If FileName = '' Then exit;
F.write(Data[1], Length(Data));
SetEndofFile(F.handle);
Except
End;
Finally
F.Free;
End;
End;

你想保存成什么格式的：如果是一行行的用memo比较好。