function HostByIP(var IPAddr: PChar): PChar; cdecl; export;

var IPAddr: PChar - var тут зачем ?

 WSAStartup($101, WSAData);

   Кто будет проверять результат ?

   Вообще говоря, этот вызов не нужен, разве что для embedded, но раз уж вызвал 
- где
вызов WSACleanup ?

--
Хорсун Влад

PS я обещал тебе не помогать, помню...

Ответить