[Resolvido] Gravar em txt consulta mysql com varios registros

Bom dia pessoal,

Estou gravando em um txt com o resultado de uma consulta no mysql, sendo que só estou conseguindo gravar o primeiro registro.

procedure Tfrm_Gera_arquivo_com_notas_de_avaliacao.Button1Click(Sender: TObject);
 var arquivo: TextFile;

 aux.SQL.Clear;
 aux.SQL.Add('SELECT * FROM resultados_de_avaliacoes WHERE resultados_de_avaliacoes.data_prova="'+(edit_m_data_prova.Text)+'" AND resultados_de_avaliacoes.ano="'+(list_ano.Text)+'"');
 aux.Open;
 aux.First;
 while not aux.eof do
 begin
 AssignFile(arquivo, 'D:\teste.txt');
 Rewrite(arquivo);
 WriteLn(arquivo, ''+IntToStr(auxcodigo.Value)+';'+(auxdisciplina_01.Value)+';'+(auxnota_disc_01.Value)+';''');
 aux.Next;
 end;
 CloseFile(arquivo);
 ShowMessage('Operação realizada com sucesso.');
end;

tenho pouco conhecimento em delphi, então desculpe se o codigo não tem nada a ver com o que preciso rsrsrsrs.