Tomando como ejemplo el codigo del amigo Caral:
Código SQL
[-]var
Ruta, campo: String;
Begin
Ruta := 'C:\TuCarpeta\Backup.Text';
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Text := 'select * from tabla where campo = 'tal cosa'';
Adoquery1.ExecSQL; -> o tambien puede ser Open
Adoquery1.SAvetoFile(Ruta);
End;
Saludos.