Ajudem a enviar email

Eis o meu código
porém não funciona:

begin
with IdMessage1 do
begin
Body.Assign(Memo1.Lines);
From.Text := ´nome@yahoo.com.br´;
Recipients.EMailAddresses := EdDestinatarios.text;
Subject := EdAssunto.Text;
CCList.EMailAddresses := EdCc.Text;
end;
IdPOP31.Host := ´pop.mail.yahoo.com.br´;
IdPOP31.Username := ´nome´;
IdPOP31.Password := ´senha´;
IdPOP31.Connect; IdSMTP1.Host:=´smtp.mail.yahoo.com.br´;
IdSMTP1.Port:= 25; IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Username := ´nome´; IdSMTP1.Password := ´senha´; IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
except
on E: Exception do
MessageDlg(E.Message, mtError, [mbOK], 0);

end;
IdPOP31.Disconnect;
end;

Será que alguém pode me ajudar.