save the result of a query on a text file

[Paizo]

ty i made something like this and work good:

procedure TForm1.SaveReport(const id_report: string);   
var
    sSql,s, sCampi: String;
    F1: Textfile;
begin




    try
// - STEP 010
        sSql :='SELECT ......something ';


        setQry(sSql,qry_dyn);
        qry_dyn.Active := True;
        qry_dyn.First;

        Savedialog1.DefaultExt:='*.csv';
        SaveDialog1.Filter := 'Comma separeted files (*.csv)|*.CSV|Text files (*.txt)|*.TXT';

        if SaveDialog1.Execute then
             AssignFile(F1, SaveDialog1.Filename)
        else Exit;

        Rewrite(F1);  

        
        while not qry_dyn.Eof do
            begin
              writeln(F1,
              qry_dyn.FieldByName('a').AsString + '|' +
              qry_dyn.FieldByName('b').AsString + '|' +
              //.....
              qry_dyn.FieldByName('z').AsString);

              qry_dyn.Next;
            end; //while 
        if (Debug_enable > 1)  then caricaLogProcedure('TForm1.SaveReport;','010','OK','');
    except
        try
                Closefile(F1);
        except
                //errore nella chiususa file
                ShowMessage('Errore duranta la scrittura del tipo1, impossibile chiudere il file');
        end;
        ShowMessage('Bugggone!');
        if (Debug_enable > 0)  then caricaLogProcedure('TForm1.SaveReport;','010','KO',sSql);
    end;

    Closefile(F1);


end;