procedure TForm1.Button1Click(Sender: TObject);
begin
begin
repeat
IdIcmpClient1.Host:= edit1.Text;
IdIcmpClient1.Ping;
application.ProcessMessages;
sleep(2000);
until getkeystate(vk_F12)=1
end;
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
memo1.Lines.Add(inttostr(AReplyStatus.MsRoundTripTime));
end;

我用上面的来PING 192.168.1.1 返回是0MS 但是几下后就来个15或16MS，用CMD来PING就一直是1MS，PING外网就15 16的，下个PING就是30多这样，用CMD来PING就是22到26这样子，请问这个有什么地方要改进吗？

给大家推荐一个好工具，免费的。www点super-ping点com/sc.html这个在线ping工具。它可以快速得到世界主要地区的ping值，您看看各个地区的ping值，做一下分析，是否与本地网络不稳定有关呢？它可是站长网站检测的绝佳帮手哦