-----------------------------------------------------------------------------------
DWORD thID,  a = 666;
HANDLE hThread;
hThread=CreateThread(NULL, NULL, connetction, &a, NULL, &thID);
-----------------------------------------------------------------------------------
public: DWORD WINAPI connetction(LPVOID port)
{
	int nclients=0;
	//Инициализация
	char buff[1024];
	if (WSAStartup(0x0202,(WSADATA *) &buff[0])) 
    {
      // Ошибка!
	     this->LogBox->Text+=WSAGetLastError();
		  return -1;
	}
	////////////////////////////////////////////////////////////////////////
	SOCKET mysocket;
    // AF_INET     - сокет Интернета
    // SOCK_STREAM  - потоковый сокет (с
    //      установкой соединения)
    // 0      - по умолчанию выбирается TCP протокол
    if ((mysocket=socket(AF_INET,SOCK_STREAM,0))<0)
    {
      // Ошибка!
      this->LogBox->Text+=WSAGetLastError();
      WSACleanup();
        // Деиницилизация библиотеки Winsock
      return -1;
    };
	///////////////////////////////////////////////////////////////////////////
	// Шаг 3 связывание сокета с локальным адресом
    sockaddr_in local_addr;
    local_addr.sin_family=AF_INET;
    local_addr.sin_port=htons((int)port);
             // не забываем о сетевом порядке!!!
    local_addr.sin_addr.s_addr=0;
             // сервер принимает подключения
             // на все IP-адреса

    // вызываем bind для связывания
    if (bind(mysocket,(sockaddr *) &local_addr,
                sizeof(local_addr)))
    {
      // Ошибка
      this->LogBox->Text+=WSAGetLastError();
      closesocket(mysocket);  // закрываем сокет!
      WSACleanup();
      return -1;
    };
	////////////////////////////////////////////////////////////////////////////

	// Шаг 4 ожидание подключений
    // размер очереди – 0x100
    if(listen(mysocket, 0x100))
    {
      // Ошибка
      this->LogBox->Text+=WSAGetLastError();
      closesocket(mysocket);
      WSACleanup();
      return -1;
    }
	//////////////////////////////////////////////////////////////////////////////
	  // Шаг 5 - извлекаем сообщение из очереди
    SOCKET client_socket; // сокет для клиента
    sockaddr_in client_addr; // адрес клиента (заполняется системой)

    // функции accept необходимо передать размер структуры
    int client_addr_size = sizeof(client_addr);

    // цикл извлечения запросов на подключение из очереди
    while ((client_socket = accept(mysocket, (sockaddr *)&client_addr, \
           &client_addr_size)))
    {
        nclients++; // увеличиваем счетчик подключившихся клиентов

        // пытаемся получить имя хоста
        HOSTENT *hst;
        hst = gethostbyaddr((char *)&client_addr. sin_addr.s_addr, 4, AF_INET);
    };
    return 0;

};
-----------------------------------------------------------------------------------