Progr. Envia E-mail

Minha procedure

Var
xAnexo : Integer;
begin
IdMessage1.Recipients.EMailAddresses := edtPara.Text;
IdMessage1.CCList.EMailAddresses := edtCC.Text;
IdMessage1.BccList.EMailAddresses := edtCCO.Text;

//Trata a Prioridade da mensagem
Case cbxPrioridade.ItemIndex Of
0 : IdMessage1.Priority := mpHigh;
1 : IdMessage1.Priority := mpNormal;
2 : IdMessage1.Priority := mpLow;
End;

IdMessage1.Subject := edtAssunto.Text;
IdMessage1.Sender.Text := mmMensagem.Lines.Text;

if cbxConfirmaLeitura.Checked Then
idmessage1.ReceiptRecipient.Text := IDMessage1.From.Text; // Auto Resposta

//Tratando os arquivos anexos
For xAnexo := 0 to mmAnexos.Lines.Count-1 do
TIdAttachment.create(idmessage1.MessageParts, TFileName(mmAnexos.Lines.Strings[xAnexo]));

//IdPOP31.Connect;

IdSMTP1.Connect;

Try
IdSMTP1.Send(IdMessage1);
showmessage(´Teste´);

Finally
IdSMTP1.Disconnect;
End;
end;


Quando eu aperto enviar acontece o seguinte erro.

Connection timed out


Obs. Tenho configurado uma conta do yahoo....


Evandro