使用rascomp拨号不能得到IP地址？(100分)

我在使用rascomp时能拨号，但得到的IP为空，请问这是怎么回事，如何解决？
代码如下：
RAS.AutoConnect;
ras.GetIPAddress;
label1.Caption :=ras.ClientIP ;

没有用到过，帮顶！

顶

function getIP : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^ <> nil do begin
result:=StrPas(inet_ntoa(pptr^^));
Inc(I);
end;
WSACleanup;
end;