怎么在delphi中实现判断是否ping通了一个ip没有？

ping 一个ip时，有不通和超时，无法解析主机等，怎么才能判断呢？
怎么实现的？  怎么实现的？&nb