[verm83]

Buenas. Estoy diseñando una aplicación para un cibercafé, y en la sección de clientes me interesa tener la opción de enviar correos. El caso es que no consigo que funcione, y he probado (creo) todos los ejemplos del foro, incluido los que vienen en el libro La Biblia de Delphi 7. El código que tengo es el siguiente:

procedure TvZonaClientes.cmdEnviarClick(Sender: TObject);
begin
    // Creo el mensaje
    mailMensaje.Subject:=txtAsunto.Text;
    mailMensaje.Body.SetText(memoMensaje.Lines.GetText);
    mailMensaje.From.Name:='La Empresa';
    mailMensaje.Recipients.EMailAddresses:=vModuloDatos.DataSetClientesEMAIL.AsString;
    mailMensaje.Priority:=TidMessagePriority(mpHighest);
    // Configuro la conexión
    indySMTP.Host:='192.168.0.2';
    indySMTP.Port:=25;
    indySMTP.AuthenticationType:=atNone;
    // Conecto y envío el correo
    try
        indySMTP.Connect;
        try
            indySMTP.Send(mailMensaje);
        finally
            showmessage('El mensaje se envió correctamente');
        end;
    except
        showmessage('Se produjo un fallo durante el envío del mensaje');
    end;
    // Desconecto
    if  indySMTP.Connected then
        indySMTP.Disconnect;
end;

Siendo indySMTP y mailMensaje, un TIdSMTP y un TIdMessage de las librerías Indy respectivamente. He agregado también un IdSMTPServer, por eso indico en indySMTP.Host la IP local del equipo. El caso es que el correo no se envía. Casi siempre se muestra el mensaje de que se ha enviado, pero realmente no es así. Al servidor SMTP no le tengo configurado nada. estoy intentando mandar correos a @hotmail.com y @lycos.es y no funciona en ninguno. ¿Alguien me puede echar un cable? No tengo ni idea de lo que hago mal, o no no hago. Muchas gracias anticipadas.