SMTP!!!

Puxa vida como vocês eram melhores! Já postei várias mensagens e nenhuma resposta concreta.

Quero saber como fazer a autenticação para enviar resposta pois o yahoo só envia depois que recebe!

Segue o código abaixo na espera de um expert pra me ajudar.
Se eu tiver que receber menssagens antes como devo proceder?
Sem mais...


[color=red:5f7c52c693]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;[/color:5f7c52c693]