Ping und Daten Verwerten

[gasty]

Also ich habe jetz eine Lösung gefunden Aber wieder ein neues Problem
Der Ping an sich funktioniert, aber es dauert ziemlich lange.
Ich habe den ping code jetz so geändert:

Delphi-Quellcode:

  if x = 1 then
    begin
      host:='www.google.de';
      code := ping(host,hopcount,rtt,ipad);
      if code = 0 then begin // ping kam an
        shape1.Brush.color := cllime;
      end else shape1.Brush.color := clred;
      x := 2;
    end;
  if x = 2 then
    begin
      host:='www.microsoft.com';
      code := ping(host,hopcount,rtt,ipad);
      if code = 0 then begin // ping kam an
        shape2.Brush.color := cllime;
      end else shape2.Brush.color := clred;
      x := 3;
    end;
usw.

Und wie gesagt der Ping an sich funktioniert, aber es dauert zu lange finde ich, kann ich das irgendwie beschleunigen?
Es sind 5 Pings und er braucht ca. 40 sek das finde ich zu lange, am inet kanns net liegen, hab DSL 16k