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