在delphi中实现ping功能,用于测试网络服务器是否可用