请教用delphi 做 vpn 的拨号程序(100分)

现在公司 总部 和 分部 都用的 adsl 上网，想在总部做一个 vpn拨号服务器，让其它分公司
能够通过vpn连入总部的网络，但拨号需要填写总部的ip，但总部的ip不是固定的，
所以想自己做一个vpn的拨号程序，每当启动它时就自动读取总公司ip（*注：我想每当启动总部
的服务器时让他自动登陆一个web页面让该页面记下服务器当时的ip，而且每一小时登陆一次，
然后把ip记在一个文件里，vpn拨号程序启动就直接读取该文件找到ip填入拨号栏当中）
只是小弟的胡想不知能不能实现？用什么组件？有没有现成的程序提供阿？忘大虾们赐教！送上100分

帮帮 忙咯

用NMHTTP控件，发一个读WEB页面的GET命令，然后读返回的页面的数据，
用字符串查找的办法来找IP，技术上不难，但是有写麻烦
学习网络神偷的办法，呵呵，用FTP也可以

多人接受答案了。