如何判断网络上一台机器可达？(30分)

下面对TIdIcmpClient的使用方法对吗？
begin
try
IdIcmpClient.ReceiveTimeout := 1000;
IdIcmpClient.Host := gAppServAddr;
IdIcmpClient.Ping;
except
result:=false;
exit;
end;
if IdIcmpClient.ReplyStatus.ReplyStatusType= rsTimeOut then
result:=false
else
result:=true;
end;

可以直接Ping， ICS控件包里有一个Ping控件，很好用的。

现在有部分的机器都用了防icmp的防火墙,ping无效..
我也提了类似的问题.用tcp ping (ark指令)实现,但没人回答 -_-
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1276342