Crear proyecto paso a paso que mande mails

[JADE_TYLER]

Hola de nuevo.

De antemano gracias por la atención.

Intente mandar el mail tambien con el siguiente codigo:

procedure TEnviarCorreo.TbEnviarClick(Sender: TObject);
var
Host, ElQueManda, ElQueRecibe, Asunto: string;
begin
host:= 'smtp.live.com';

smtp.Host:= host;
smtp.Port:= 587;

ElQueManda:= '[email protected]';
ElQueRecibe:= '[email protected]';
Asunto:= 'Hola';

idMensaje.From.Address:= ElQueManda;
idMensaje.ReceiptRecipient.Address:= ElQueRecibe;

idMensaje.Subject:= Asunto;
idMensaje.Body:= TmCuerpo.Lines;

smtp.Connect;
smtp.Send(idMensaje);

end;

procedure TEnviarCorreo.SMTPConnected(Sender: TObject);
begin
if smtp.Connected = true then
showmessage('Conexión exitosa');

end;

end.


Y si me conecta con el host de hotmail utilizando el componente TidSMTP de Indy Clients, pero me aparece el siguente error y marca en el codigo esta parte "smtp.Send(idMensaje);"

"raised exception class EIdProtocolReplyError with message '530 5.7.0 Must issue a STARTTLS command first'."

Como resolver esto?