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这样子，请问这个有什么地方要改进吗？