[求助]Delphi高手进来,DBGird导出txt格式

怎么都没有人顶呢?
难道这里都没有高手吗?
请大家帮忙,我实在是很急着用的,谢谢大家了

var
i:integer;
list:TStringList;
begin
list:=TStringList.Create;
adoquery1.First;
for i:=0 to adoquery1.RecordCount-1 do
begin
list.Append(adoquery1.Fields[1].asstring);
adoquery1.Next;
end;
list.SaveToFile('d:\aa.txt');