Ну и непонятно использование структуры SOCKADDRESS - зачем в примере задается порт sock_adr1.sin_port:=16#1111 ?
Сделано это для целей отладки - видимо создатель программы по шагам проверял работу всех функций (писал не я, могу только догадываться).
P.S. Требовать от примера Ping совершенства, отсутствия синтаксического оверхеда, развёрнутых комментариев и тотальной обработки ошибок - это перфекционизм.