Тебе не кажется,
что твой код - это забивание гвоздей КУВАЛДОЙ )))

А что делать, если сайты с которых вы пытаетесь получить IP недоступны в данное время )

Думаю этот код намного юзабельней и лучше:
http://delphi-faq.zoxt.net/z3.htm