¿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:
usuario@lapera.es

con
IdMessage1.From.text:= 'usuario.@lapera.es';
IdMessage1.EMailAddresses:= 'correodedestino@lirios.es

con
IdsMTP1. UserName:= 'usuario.@lapera.es';
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?