Ping und Daten Verwerten

[gasty]

Ok, so kann ich 1 ping ausführen, klappt auch
Nur wie mach ich das jetz mit der liste von adressen?

Mein bisheriger Versuch sieht so aus, was aber nicht funktioniert:

Delphi-Quellcode:

  x := 1;
  if x = 1 then
    begin
      IdIcmpClient1.Host := 'www.microsoft.com';
      IdIcmpClient1.Ping();
      case IdIcmpClient1.ReplyStatus.ReplyStatusType of
        rsEcho:
          begin
            shape1.brush.color := cllime;
          end;
      else shape1.brush.color := clred;
      x := 2;
      end;
    end;
  if x = 2 then
    begin
      IdIcmpClient1.Host := 'www.google.de';
      IdIcmpClient1.Ping();
      case IdIcmpClient1.ReplyStatus.ReplyStatusType of
        rsEcho:
          begin
            shape2.brush.color := cllime;
          end;
      else shape2.brush.color := clred;
      x := 0;
      end;
    end;