1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
  NMEcho1.Host:=edit1.text; // host auswählen zb. www.auq.de
  try NMEcho1.Connect;
  except;
 end;
end;

procedure TForm1.NMEcho1Connect(Sender: TObject);
 begin
  label1.caption:='Status: Ping!';
  NMEcho1.Echo('pling'); // pling kannst du auch durch ping ersetzen
  label1.caption:='Status: '+FloatToStr(NMEcho1.ElapsedTime)+'ms';
  NMEcho1.Disconnect;
end;

procedure TForm1.NMEcho1ConnectionFailed(Sender: TObject);
 begin
  label1.caption:='Status: Falscher Host';
 end;					

1:
2:

NMEcho1.Host:=edit1.text; // host auswählen zb. www.auq.de
 try NMEcho1.Connect;					

1:

NMEcho1.Host:=edit1.text; // host auswählen zb. www.auq.de