Envio de e-mail com delphi

Meus caros.

Estou tentando enviar um e-mail com os componentes TIdSMTP e TIdMessage da paleta Indy Misc sem sucesso pois a primeira vez q executo o programa ele manda o e-mail depois não envia mais.

Vou Disponibilizar o código abaixo:

with IdSMTP1 do
begin
//Nome do host
Host := ´smtp.xxxxxx.com.br´;
//Porta
Port := 25;
//Nome do usuário, normalmente o e-mail
Username := ´Login´;
//Senha
Password := ´senha´;
try
//Conecta com o servidor smtp
Connect();
except
MessageBox(Handle, ´Falha de conexão no Host´,´Erro´, MB_OK+MB_ICONERROR);
Application.Terminate;
end;
//Autentica no Host
try
Authenticate;
except
MessageBox(Handle, ´Falha de autenticação no Host´,´Erro´, MB_OK+MB_ICONERROR);
Application.Terminate;
end;
end;
with IdMessage1 do
begin
//O seu endereço de e-mail
From.Address := ´yyyyy@xxxxxx.com.br´;
//Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail
Recipients.EMailAddresses := ´zzzzz@xxxxxxxxxx.com.br´;
//O assunto da mensagem
Subject := ´Assunto´;
//A mensagem que você quer mandar
Body.Text := ´Mensagem´;
MessageParts.Clear;
end;
//Aqui para poder anexar um arquivo
TIdAttachment.Create(IdMessage1.MessageParts, ´Path do arquivo a ser anexado´);
//Envia a mensagem
try
IdSMTP1.Send(IdMessage1);
except
MessageBox(Handle, ´Falha no processo de finalização´,´Aviso´, MB_OK+MB_ICONWARNING);
end;
IdSMTP1.Disconnect;