Sanvando txt s/ atrapalhar o envio

Pessoal tenho uma rotina que envia emails de um recordset.
Estou usando o IdSmtp da paleta Indy.
Gostaria que caso desse um erro, salve o nº do erro, descrição
e o email que disparou o erro. Já tentei alguma coisa, só que do
jeito que está ele salva no arquivo txt todos os emails enviados.

(OBS: Ele teria que salvar mas sem interromper o envio)

Segue o trecho do código:

try
IdSMTP1.Send(IdMessage1);
except
NomeDoLog:= ChangeFileExt(Application.ExeName,´.txt´);
AssignFile(Arquivo, NomeDoLog);
if FileExists(NomeDoLog) then
Append(Arquivo)
else
Rewrite(Arquivo);
Writeln(Arquivo, DM.Qaux1.FieldByName(´EMAIL´).Value);
CloseFile(Arquivo);
end;
DM.Qaux1.next;

As variáveis NomeDoLog e Arquivo já foram declaradas.

Obrigada