How to get IP?(100分)

在Java中可以轻易实现，但在Delphi里怎么编？

以前讨论的，检索一下……

http://www.inprise.com.cn上有绝地的winsocks下载

以下这个程序可以得到本机IP地址和计算机名：
uses Winsock;
... ...

procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{获得计算机名}
GetHostName(@s, 128);
p := GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);
{获得本机的ip地址}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
{Shutdo
wn WinSock}
WSACleanup;
end;

多人接受答案了。