چگونگی ping کردن IP

[iamehsan56]

من از دموی ایندی واسه پینگ کردن استفاده کرده ام .
اما وقتی یه سایتی رو پینگ می کنم جواب خوبی نمی ده . گاهی جواب می ده بعد از کلی
پینگ کردن و گاهی هم جواب نمی ده . ایندی من10.2.5 هست
و تو دلفی 2009 کامپایل کردم
حتی وقتی آدرس آی پی اون رو به جا ی اسمش وارد می کنم بازم همونطوره
اما وقتی با دستور پینگ خود ویندوز از پرامت پینگ می کنم مشکلی نداره
این اشکال از چیه
لطفا کمک کنید

procedure TfrmPing.btnPingClick(Sender: TObject);

var

  i: integer;

begin

  ICMP.OnReply := ICMPReply;

  ICMP.ReceiveTimeout := 1000;

  btnPing.Enabled := False; try

    ICMP.Host := edtHost.Text;

    for i := 1 to spnPing.Value do begin

      ICMP.Ping;

      Application.ProcessMessages;

    end;

  finally btnPing.Enabled := True; end;

end;



procedure TfrmPing.ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus);

var

  sTime: string;

begin

  // TODO: check for error on ping reply (ReplyStatus.MsgType?)

  if (ReplyStatus.MsRoundTripTime = 0) then

    sTime := '<1'

  else

    sTime := '=';



  lstReplies.Items.Add(Format('%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms',

    [ReplyStatus.BytesReceived,

    ReplyStatus.FromIpAddress,

    ReplyStatus.SequenceId,

    ReplyStatus.TimeToLive,

    sTime,

    ReplyStatus.MsRoundTripTime]));

end;