#pragma hdrstop
   Button1->Enabled = false;
   Button1->Caption = "Status:";
   SOCKET    skSocket;
   sockaddr_in saServerAddress;
   int       iPort = 80;
   int       iStatus;
   WSADATA   wsaData;
   WORD      wVersionRequested;
   LPHOSTENT lpHost;
   char      szHost[128];
   char      hostName[128];
   char      szSendBuffer[256];
   char      szRecvBuffer[32768];
   int       iBytesSent;
   int       iBytesReceived;
   Status->AddItem("Memory Initialised",0);
   sprintf(szHost,"10.170.88.88");
   // Ñîîáùàåì WinSock, ÷òî íàì íóæíà âåðñèÿ 2
   wVersionRequested = MAKEWORD(2, 0);
   // Èíèöèàëèçèðóåì äåñêðèïòîð ñîêåòà
   skSocket = INVALID_SOCKET;
   // Çàïóñêàåì WinSock
   iStatus = WSAStartup(wVersionRequested, &wsaData);
   // Ñîçäàåì ñîêåò
   skSocket = socket(AF_INET, SOCK_STREAM, 0);
    Status->AddItem("Sockets Initialised",0);
   // Ïðîâåðÿåì íàëè÷èå îøèáîê
   if(skSocket == INVALID_SOCKET) {
      cout << "**ERROR** Could Not Create Socket" << endl;
      exit(1);
   }
   memset(&saServerAddress, 0, sizeof(sockaddr_in));
   saServerAddress.sin_family = AF_INET;
   saServerAddress.sin_addr.s_addr = inet_addr(szHost);

   if(saServerAddress.sin_addr.s_addr == INADDR_NONE)
   {
      lpHost = gethostbyname(szHost);
      if (lpHost != NULL) {
         // Ïîëó÷àåì àäðåñ ñåðâåðà èç èíôîðìàöèè õîñòà
         saServerAddress.sin_addr.s_addr =
            ((LPIN_ADDR)lpHost->h_addr)->s_addr;
      }
      else {
         cout << "**ERROR** Could Not Locate Host" << endl;
         exit(1);
      }
   }
   // Çàäàåì ïîðò ñåðâåðà
    Status->AddItem("Server port initialised",0);
   saServerAddress.sin_port = htons(iPort);
   printf("");
   Status->AddItem("Connecting...",0);
   // Ïûòàåìñÿ ïîäêëþ÷èòüñÿ ê ñåðâåðó
   iStatus = connect(skSocket,
          (struct sockaddr*)&saServerAddress,
          sizeof(sockaddr));
    Status->AddItem("Connected",0);
   // Ïðîâåðÿåì íàëè÷èå îøèáîê
   if(iStatus == SOCKET_ERROR) {
      cout << "**ERROR** Could Not Connect To Server" << endl;
      exit(1);
   }
   Status->AddItem("Sending data",0);
   sprintf(szSendBuffer,"GET / HTTP/1.0\n\n");
   // Îòïðàâëÿåì HTTP-çàïðîñ
   iBytesSent = send(skSocket, szSendBuffer, 256, 0);
   memset(szRecvBuffer, 0x00, 32768);
   Status->AddItem("Reciveing",0);
   // Ïîëó÷àåì äàííûå
   iBytesReceived = recv(skSocket, szRecvBuffer, 32768, 0);
   Label1->Caption =szRecvBuffer;
   // Çàâåðøàåì ðàáîòó
   Status->AddItem("Recived",0);
   closesocket(skSocket);
   WSACleanup();