Ip local

¿Cómo puedo obtener la ip local de internet, no la ip de mi red?
Con el procedimiento siguiente me da la ip de red que es 192.168.0.1, pero no la ip de internet, que es algo así como 200.4.45. Etc,
¿Cómo puedo hacer esto?
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
{Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
lblip.Caption:=(p^.h_Name);
{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
lblip.Caption:=(p2);
{Shut down WinSock}
WSACleanup;