Envio de Email al cambiar la IP

[[Caral]]

Hola a todos
Como sabéis he estado tratando de hacer un programita que me envíe la dirección Ip del servidor cuando esta cambie (hay uno por ahi pero sin codigo).
Bueno pues como de esto no se he usado uno de los programas que vienen en los demos de delphi.
Lo que he hecho es hacerle unas modificaciones y quitarle lo que no me interesa, así solamente busca la dirección IP, lee unos datos, los compara y si es diferente a la que tiene guardada, envía un email con la nueva ip.
Se puede indicar a que email enviar el dato, cada cuanto tiempo se quiere que haga la revisión etc.
Lo que trate de hacer es simplificar el programa y que haga específicamente una sola tarea.
Bueno, aparte de que todos vosotros tendréis el código (ya que esta en los demos) pues os dejo los cambios por si a alguno os interesa saber la chapuza que hice, probada y funcionando.
Saludos