Delphi7下怎么把数据库中的数据输出到txt文本里

Delphi7下如何把数据库中的数据输出到txt文本里？
需要把一些统计数据放到txt文本里。

谢谢高手。


------解决方案--------------------
var
ss:TStringStream;
ms:TMemoryStream;
function DataSetToText(mDataSet: TDataSet): string;
var
vBookmark: string;
I: Integer;
S: string;
begin
Result:= ' ';
vBookmark:= mDataSet.Bookmark;
mDataSet.First;
while not mDataSet.Eof do
begin
S:= ' ';
for I:= 0 to mDataSet.FieldList.Count - 1
do
S:= S + #9 + mDataSet.FieldList[I].DisplayText;
Delete(S, 1, 1);
Result:= Result + S + #13#10;
mDataSet.Next;
end;
mDataSet.Bookmark := vBookmark;
end;
begin
ss:=TStringStream.Create( DataSetToText( self.ADODataSet1 ) );
ms:=TMemoryStream.Create;
ms.LoadFromStream( ss );
ms.SaveToFile( 'c:\1.txt ' );
ms.Free;
ss.Free;
end;