Проблемы с пингом под ip

[KAZzzz]

В домашних условиях работает нормально!
Но при переносе в другую сеть при запуске возникае ошибка SocketError 10013
При попытке уомпиляции ссылается на ошибку в строке
try
ICMP.Host := Host.Text;
for i := 1 to Pings.Value do begin
ICMP.Ping;
Application.ProcessMessages;
sleep(1000);
end;
finally
Подскажите что делать

[Квэнди]

А порт открыт ? разрешен для использования ?

[KAZzzz]

А вот этого я сказать не могу!