WinSock

WSADATA wsa2;
 
if (WSAStartup(MAKEWORD(2,2), &wsa2) != NO_ERROR) {
  ShowMessage("bla");
  Application->Terminate();
 }
 
SOCKET sock;
 sock = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
 
 struct sockaddr_in peer;
 peer.sin_family = AF_INET;
 peer.sin_port = htons(27015);
 peer.sin_addr.s_addr = inet_addr("77.50.0.23");
 
 if (connect(sock, (SOCKADDR*) &peer, sizeof(peer)) == SOCKET_ERROR) {
  ShowMessage("2bla");
  closesocket(sock);
  WSACleanup();
  Application->Terminate();
 }
 
 if (send(sock, A2S_INFO, (int)strlen(A2S_INFO), 0) == SOCKET_ERROR) {
  ShowMessage("3bla");
  closesocket(sock);
  WSACleanup();
  Application->Terminate();
 }
 
 char recvbuf[DEFAULT_BUFLEN];
 int recvbuflen = DEFAULT_BUFLEN;
 
 int iResult;
 do { 
  iResult = recv(sock, recvbuf, recvbuflen, 0); //Висим на данной строчке...
  if (iResult > 0)
   ShowMessage("Bytes received: "+IntToStr(iResult));
  else if (iResult == 0)
   ShowMessage("Connection closed");
  else
   ShowMessage("recv failed: "+IntToStr(WSAGetLastError()));
 } while(iResult = 0);
 
 iResult = shutdown(sock, SD_SEND);
 if (iResult == SOCKET_ERROR) {
  ShowMessage("4bla");
  closesocket(sock);
  WSACleanup();
  Application->Terminate();
 }
 
 closesocket(sock);
 WSACleanup();
 
 FILE* file;
 file = fopen("recv.txt", "w");
 fputs(recvbuf, file);
 fclose(file);
 
 ShowMessage("successful");

iResult = recv(sock, recvbuf, recvbuflen, 0);