delphi как узнать свой ip

Фишка в том, что у вашего компа может быть несколько IP-адресов. Допустим, у вас Интернет идёт через UTP-шланг, а другим компам вы раздаёте Интернет по Wi-Fi. На одну сетевую карточку тоже можно повесить два IP-адреса. Так что вопрос не такой простой, как кажется.

PS: Вот, например, интерфейсы моего нетбука: аж целых 4 штуки, 2 работают в данный момент:

$ ifconfig -a
lo: flags=73 mtu 16436
inet 127.0.0.​1 netmask 255.0.0.​0
inet6 ::1 prefixlen 128 scopeid 0x10
loop txqueuelen 0 (Local Loopback)
RX packets 57163 bytes 6835896 (6.5 MiB)
RX errors 0 dropped 0 overruns 0 frame 0
TX packets 57163 bytes 6835896 (6.5 MiB)
TX errors 0 dropped 0 overruns 0 carrier 0 collisions 0

p4p1: flags=4163 mtu 1500
inet 192.168.0.​104 netmask 255.255.255.​0 broadcast 192.168.0.​255
inet6 fe80::52af:73ff:fe12:415f prefixlen 64 scopeid 0x20
ether 5073:12:41:5f txqueuelen 1000 (Ethernet)
RX packets 22730079 bytes 24354277301 (22.6 GiB)
RX errors 0 dropped 0 overruns 0 frame 0
TX packets 22726783 bytes 14579797900 (13.5 GiB)
TX errors 0 dropped 0 overruns 0 carrier 0 collisions 0

vboxnet0: flags=4098 mtu 1500
ether 0a:00:27:00:00:00 txqueuelen 1000 (Ethernet)
RX packets 0 bytes 0 (0.0
RX errors 0 dropped 0 overruns 0 frame 0
TX packets 0 bytes 0 (0.0
TX errors 0 dropped 0 overruns 0 carrier 0 collisions 0

wlan0: flags=4098 mtu 1500
ether 00:1c:7b:9f:45:c8 txqueuelen 1000 (Ethernet)
RX packets 102 bytes 30388 (29.6 KiB)
RX errors 0 dropped 0 overruns 0 frame 0
TX packets 178 bytes 35359 (34.5 KiB)
TX errors 0 dropped 0 overruns 0 carrier 0 collisions 0