ping

[technik05]

Code:

procedure TForm1.Panel1Click(Sender: TObject);
begin
IdIcmpClient1.Host := '192.168.0.222';
IdIcmpClient1.Ping();
If IdIcmpClient1.ReceiveTimeout = 5000 Then
pannel1.Color :=red
else pannel1.Color :=green;
end;

was ist hier falsch ?????