function HostByIP(var IPAddr: PChar): PChar; cdecl; export;
var IPAddr: PChar - var тут зачем ?
WSAStartup($101, WSAData);
Кто будет проверять результат ? Вообще говоря, этот вызов не нужен, разве что для embedded, но раз уж вызвал - где вызов WSACleanup ? -- Хорсун ВладPS я обещал тебе не помогать, помню...

