关于调出本机IP地址的程序

我正在学习网络编程，看到了一个例子可以调出本机的ip和主机名，但是我执行了以后发现调出来的是Ethernet Adapter的地址，不是我上网用的PPP Adapter的地址，请问如何解决，下面的程序我也一知半解.谢谢了。
procedure TMyBrowser.GetIP;
var
wVersionRequested:WORD;
wsaData:TWSAData;
p:PHostEnt;
s:array[0..128] of char;
p2:pchar;
Output:array[0..100] of char;
begin
wVersionRequested:=MAKEWORD(1,1);
WSAStartup(wVersionRequested,wsaData);
GetHostName(@s,128);
p:=GetHostByName(@s);
p2:=iNet_ntoa(PInAddr(p^.h_addr_list^)^);
StrPCopy(Output,'IP address:'+Format('%s',[p2]));
WSACleanup;
end;