[K4RL0S]

lo estoy haciendo de la sig. manera:

NMSMTP1.Host := 'mx.yahoo.com';
NMSMTP1.PostMessage.Body.AddStrings(Memo1.Lines);
NMSMTP1.PostMessage.FromAddress := '[email protected]';
NMSMTP1.PostMessage.ToAddress.Add('[email protected]');
NMSMTP1.PostMessage.FromName := 'K4RL0S';
NMSMTP1.PostMessage.ReplyTo := '[email protected]';
NMSMTP1.PostMessage.Subject := 'Prueba de programa para enviar mails';

NMSMTP1.Connect;

if (NMSMTP1.Connected) then
begin
try
NMSMTP1.SendMail;
except
on E:Exception do begin

end; // on
end; // try
end // if
else begin
MessageDlg('No conectado', mtError, [mbOK], 0)
end;
NMSMTP1.Disconnect;

Que puede ser?