delphi_ping函数及一个delphi_ping方法