[Ike0]

Bueno ya conseguí hacer que al pulsar un boton se ponga el Panel verde o rojo dependiendo de si existe o no el Ping. Lo he hecho con esto:

Evento OnReply de TIdIcmpClient:

Código Delphi [-]
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  if IdIcmpClient1.ReplyStatus.BytesReceived = 0 then
    begin
      panel1.color:=clRed
    end 
    else begin
      Panel1.color:=clGreen;
    end;
end;

Evento OnClick del TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdIcmpClient1.Ping;
end;

Sabiendo esto, ahora quiero saber como hacer el ping automaticamente, es decir, con un boton iniciar y/o parar la labor de hacer ping.

Gracias