在Delphi 10中检查客户端与TIdTCPServer的连接质量

Question

使用Delphi 10，我有一个TIdTCPServer接收来自不同客户端的连接，一些是Windows客户端，另一些是移动（iOS和Android）。

有没有办法确定Indy TCP服务器和连接到该服务器的Indy TCP客户端之间的连接质量？

我尝试使用TIdICMPClient，但问题是某些Windows客户端使用防火墙阻止ping。

我应该为要发布的问题指定一个代码..所以..

function Testquality: boolean;
begin
  IdIcmpClient1.ReceiveTimeout := 500;
  IdIcmpClient1.Host := host;
  IdIcmpclient1.OnReply := PingReply;
  IdIcmpClient1.Ping;
  Result := IdIcmpClient1.ReplyStatus.ReplyStatusType <> rsTimeout;
end;