Что не красивога та? )))
Вот с помеченными тобой строчками, эта прога не работает!!!! выдаёт ошибку

undeclared idintifier ('tidsockethandle').....

А когда я вырезал помеченные строки, работать прога стала, но имея толкьо исходящюю активность, возможно в маршрутизаторах пакет теряется