Error enviando e-mail: EidSMTPReplyError

[sami76]

Hola a todos. Recurro directamente a vosotros por que no he podido encontrar solución a mi problema en los hilos (o no he sabido encontrarlo). Os explico:

Utilizo Delphi 2006 e intento enviar un e-mail con los componentes Indy TIDMessage y TIdSMTP. El código se ejecuta correctamente, hasta que llega a la línea con lo siguiente : smtp.Send(mail); (la variable smtp pertenece a la clase TIdSMTP) (la variable mail pertenece a la clase TIDMessage).

El error es el siguiente: 'Project raised exception class EidSMTPReplyError with message "" '

El código en cuestión es el siguiente (es una función):

Código Delphi [-]
   smtp := TIdSMTP.Create(self);
   mail := TIdMessage.Create(Self);

  // CONFIGURACION DEL SERVIDOR AL QUE SE ENVIA EL CORREO
  with smtp do begin
    Host := pSMTP;
    port := 25;
    Username := pUser;
    Password := pPass;
  end;


  // CONFIGURACION DEL MENSAJE A ENVIAR
  with mail do begin
    From.Address := pFrom;
    Recipients.EMailAddresses := pDestinatario;
    Subject   := pSubject;
    body.text := pBody;
  end;

  try
    // CONEXION CON EL SERVIDOR DE CORREO
    smtp.Connect;
    try
      // ENVIO DEL MENSAJE
      smtp.Send(mail);
    except on E: Exception do
     begin
        Result := True;
        ShowMessage('Fallo al enviar: ' + E.Message);
     end;
    end;
  finally
    Result := True;

    if SMTP.Connected then
       SMTP.Disconnect;

    smtp.free;
    mail.free;
  end;

Estoy algo desesperadillo, para qué negarlo.¿Alguna alma caritativa sabe el porqué del problema?

Este foro no tiene precio. Muchas gracias a todos de antemano.

Saludos