¿Por qué no puedo enviar el Email?

[Turboleta]

Hola a todos, nuevamente.
Sigo intentado que mi programa envíe un correo, transparente para el usuario.

He utilizado las Indy, como recomendais en el foro. Uso los componentes:
IdsMTP y IdMessage.

En fin os explico lo que he puesto, suponiendo que el correo del usuario es:
[email protected]

con
IdMessage1.From.text:= '[email protected]';
IdMessage1.EMailAddresses:= '[email protected]

con
IdsMTP1. UserName:= '[email protected]';
IdsMTP1.Password:= la clave de acceso del usuario a su correo
IdsMTP1. Host:= 'lapera.es';
IdsMTP1.Port:= 25;

El resto es idéntico a lo que hay en el foro y tiene pinta de estar bien.

Bien, pues cuando intendo enviar me devuelve el mensaje: No se ha podido enviar el email y al cerrarlo, despues del Raise: Connection Closed Gracefully.

¿Qé es lo que estoy haciendo mal?