Internetseite anpingen

[glkgereon]

hi

ich versuche eine internetseite anzupingen, und zwar mithilfe der indys, genauer IdIcmpClient

das versuche ich so:

Delphi-Quellcode:

procedure TForm1.Btn_GetClick(Sender: TObject);
//Ping einleiten
var i:Integer;
begin
  Btn_Get.Enabled := False;
  try
    Ping.Host := Edt_URL.Text;
    for i := 1 to 4 do
    begin
      Ping.Ping;
      Application.ProcessMessages;
    end;
  finally
    Btn_Get.Enabled := True;
  end;
end;

Delphi-Quellcode:

procedure TForm1.PingReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
//Bei PingReply
var sTime: string;
begin
  if (Ping.ReplyStatus.MsRoundTripTime = 0) then
    sTime := '<1'
  else
    sTime := '=';
    ListBox1.Items.Add(Format('%d Byte von %s: icmp_seq=%d ttl=%d Zeit%s%d ms',
    [Ping.ReplyStatus.BytesReceived,
Ping.ReplyStatus.FromIpAddress,
    Ping.ReplyStatus.SequenceId,
Ping.ReplyStatus.TimeToLive,
    sTime, Ping.ReplyStatus.MsRoundTripTime]));
end;

dies ist bisher nur von hier abgeschrieben, aber es funzt trotzdem nicht.

was mache ich falsch?