求本机公网IP函数

想网站:http://www.whatismyip.com/  一样获取本机公网IP地址
Delphi 怎么实现呢.呵呵不会!还请帮忙
网上找到个方法: 但TRasConn;TRASPPPIP; 不知道引用哪个单元的呢,也不知道这函数是不是能够实现.还望提示...function RasGetIPAddress: string;
var
RASConns : TRasConn;
dwSize : DWORD;
dwCount : DWORD;
RASpppIP : TRASPPPIP;
begin
  Result := '';
  RASConns.dwSize := SizeOf(TRASConn);
  RASpppIP.dwSize := SizeOf(RASpppIP);
  dwSize := SizeOf(RASConns);
  if RASEnumConnectionsA(@RASConns, @dwSize, @dwCount) = 0 then begin
  if dwCount > 0 then
  begin
    dwSize := SizeOf(RASpppIP);
    RASpppIP.dwSize := SizeOf(RASpppIP);
    if RASGetProjectionInfoA(RASConns.hRasConn,RASP_PppIp,@RasPPPIP,@dwSize) = 0 then
      Result := StrPas(RASpppIP.szIPAddress);
  end;
end;