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-----