Delphi 实现获得主机IP地址和主机名

procedure TForm1.Initialize; 
var 
       hostName,ipAddress : string; 
       localHost : TIPSocket; 
begin 
      localHost := TIPSocket.Create(Self); 
      hostName := localHost.LocalHostName; 
      localHost.Free; 
      ipAddress:= Powersock1.LocalIP; 
end;