Fórum Me ajudem a decifrar o uso do SMTP!!! #169475

O Erro que dá é esse:
Erro no sistema da classe Exception
Mensagem: 530 authentication required - for help go to http://help.yahoo.com/help/us/mail/pop/pop-11.html

[color=red:52968e0f03]Recebo Menssagens usando o POP do Yahoo, e quero enviar um arquivo para um e-mail do UOL, só que dá essa mensagem acima, o que devo implementar nesse código?[/color:52968e0f03]

o fonte é esse:

procedure TMain.EnviarBTClick(Sender: TObject);
begin
try
if not Config then
Begin
ShowMessage(´Configure primeiro o sistema!´);
exit;
end;

EnviarBT.Enabled := False;


if Prepare then
with SMTP do
Begin
Host := SMTPEd.Text;
UserID := LoginEd.Text;
Connect; //Inicia a conecção;
PostMessage.FromName := NumEd.Text + ´-´ + NomeEd.Text;
PostMessage.FromAddress := EmailEd.Text;
PostMessage.ToAddress.Text := EmailDestEd.Text;
PostMessage.Subject := ´Transmissão de estoque - ´+DateTimeToStr(Now);
PostMessage.ReplyTo := ´clinica01@uol.com.br´;
PostMessage.Body.Text:= ´ESTOQUE CLINICAS´;

if not (FileExists(DirectoryEd.Text + ´\Cli´+NumEd.Text+´.mmm´)) then
StatusMem.Lines.Add(´Anexo de envio não encontrado!´) else
PostMessage.Attachments.Text := DirectoryEd.Text +´\Cli´+NumEd.Text+´.mmm´;
StatusMem.Lines.Add(´Enviando...´);
SendMail; //Envio do e-mail;
Disconnect;
StatusMem.Lines.Add(´Transmissão efetuada com sucesso!´);
end
else
StatusMem.Lines.Add(´Transmissão não efetuada, desconectando...´);
EnviarBT.Enabled := True;
Timer1.Enabled := True;
except
on E: EAbortError do
Begin
ShowMessage(´E-mail não enviado, erro: ´+E.Message);
SMTP.Disconnect;
EnviarBT.Enabled := True;
end;
end;
end;