Fórum exportar dados para txt #452877

ola galera, tudo bem, to iniciando no delphi e tenho uma duvida aqui


tenho um banco de dados aki e coloquei os campos no delphi
adoconnection
adoquery
datasource
botao 1
edit
dbgrid (mostra os dados da tabela, assim que digitado (edit) e clicado no botao (button1))
botao 2 (exportar para txt) -> seria algo como salvar um txt dos arquivos mostrados



codigo no botao 1 (esta funcionando)
procedure TForm1.Button1Click(Sender: TObject);
var
let: string;
begin
let:=(Edit1.Text);

with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add(''SELECT IDBanco,NomeBanco'');
SQL.Add(''FROM TBBanco'');
SQL.Add(''WHERE (NomeBanco LIKE ''+#39+''%''+let+''%''+#39+'')'');
Open;
end;
end;
end.




codigo no botao 2 (nao esta funcionando)
procedure ExpTXT(DataSet: TDataSet; Arq: string);
var
i: integer;
sl: TStringList;
st: string;
begin
DataSet.First;
sl := TStringList.Create;
try
st := '''';
for i := 0 to DataSet.Fields.Count - 1 do
st := st + DataSet.Fields[i].DisplayLabel + '';'';
sl.Add(st);
DataSet.First;
while not DataSet.Eof do
begin
st := '''';
for i := 0 to DataSet.Fields.Count - 1 do
st := st + DataSet.Fields[i].DisplayText + '';'';
sl.Add(st);
DataSet.Next;
end;
sl.SaveToFile(Arq);
finally
sl.free;
end;
end;




gostaria de saber como fazer o botao 2 (exportar) funcionar, eu queria salvar os arquivos lidos no txt
por exemplo; digito caixa, ai mostra no dbgrid os dados de todos os bancos que contem caixa, isso ja esta certo, so que gostaria que o botao exportar funcionasse (criasse um txt, so para visualizaçao dos dados)