Foros Club Delphi - Error al enviar un email

Hola, utilizando el siguiente código:

Código:

uses

  SysUtils, System.Web.Mail;



Var

   Mensaje      : MailMessage;



begin

 

  Mensaje := MailMessage.Create;



  Mensaje.From := 'MiUsuario@yahoo.es';

  Mensaje.&To := 'MiUsuario@yahoo.es';

  Mensaje.Subject := 'Prueba';

  Mensaje.Body := 'Texto de prueba';

  Mensaje.BodyFormat := MailFormat.Text;



  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusing', '2' );

  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpserver', 'smtp.correo.yahoo.es' );

  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpserverport', '25' );



  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate', '1' );

  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendusername', 'MiUsuario@yahoo.es' );

  Mensaje.Fields.Add('http://schemas.microsoft.com/cdo/configuration/sendpassword', 'MiContraseña' );



  SMTPMail.SmtpServer := 'smtp.correo.yahoo.es';

  SMTPMail.Send ( Mensaje );



  Mensaje.Free;



end.

compila bien, pero da el siguiente error en tiempo de ejecución:

Código:

Unhandled Exception: System.Reflection.TargetInvocationException: Exception has

been thrown by the target of an invocation. ---> System.Runtime.InteropServices.

COMException (0x800A0EA5): Error al actualizar los campos. Para obtener más info

rmación, examine la propiedad Status de los campos de cada objeto individual.

   --- End of inner exception stack trace ---

   at System.RuntimeType.InvokeDispMethod(String name, BindingFlags invokeAttr,

Object target, Object[] args, Boolean[] byrefModifiers, Int32 culture, String[]

namedParameters)

   at System.RuntimeType.InvokeMember(String name, BindingFlags invokeAttr, Bind

er binder, Object target, Object[] args, ParameterModifier[] modifiers, CultureI

nfo culture, String[] namedParameters)

   at System.Web.Mail.CdoSysHelper.Send(MailMessage message)

   at System.Web.Mail.SmtpMail.Send(MailMessage message)

He buscado por Internet pero no he sacado nada en claro. ¿Alguien sabe a qué puede ser debido este error?

Gracias.