Eu tive q fazer algo parecido... Veja se ajuda
Public b:integer;
  
  IdIcmpClient1.OnReply := IdIcmpClient1.OnReply;
  IdIcmpClient1.ReceiveTimeout := 300;
  IdIcmpClient1.Host := XXX.XXX.XXX.XXX;
  IdIcmpClient1.Ping;
  if b > 0 then
    enviaPedidos
  else
    StatusBar.Panels[4].Text := 'Off-line'
-----Mensagem original-----