إقتباس :This component obtains the public IP address, or Internet IP address, for
computers that are behind routers with NAT functionality. It works contacting
with any server on Internet that tells your public IP, and doing parsing with
the reply data to get the address.

By default it asks to: http://checkip.dyndns.org but you can change to another
server, setting the component properties, if desired.

TGetPublicIP don't blocks the application while the process is pending. To start
the process you must call the method "Execute". It returns inmediately. When the
process finalizes the event "OnDone" is called. Then you can read your public IP
in the property "PublicIP". If the process fails, "OnDone" never will be called,
so your program should take care for a timeout period.

Internally it uses the component TClientSocket that is in the package
dclsocketsXX.bpl. This package is not usually installed on recent versions of
Delphi. So you should install it before to use TGetPublicIP.