Arg:=1;
 IOCtlSocket(sServerListen,FIONBIO,Arg);

//Создание Сервера
procedure crestserver;
var
wData : WSADATA;
sServerListen, sClient : TSOCKET;
localaddr, clientaddr : sockaddr_in;
iSize : Integer;
s1 : TCPClientThread;
begin
// Загрузка WinSock
if WSAStartup(MAKEWORD(1,1), wData) <> 0 then
begin
  MessageBox(0, 'Не могу загрузить WinSock', 'Ошибка', 0);
  exit;
end;

// Создание сокета
sServerListen := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
if sServerListen = INVALID_SOCKET then
 begin
  MessageBox(0, 'Ошибка создания сокета', 'Ошибка', 0);
  exit;
 end;

// Запонение структуры адреса
localaddr.sin_addr.s_addr := htonl(INADDR_ANY);
localaddr.sin_family := AF_INET;
localaddr.sin_port := htons(5050);

//Связывание сокета с локальным адресом
if bind(sServerListen, localaddr, sizeof(localaddr)) = SOCKET_ERROR then
 begin
  TestWinSockError('Bind');
  exit;
 end;

//Прослушивание
if TestFuncError(listen(sServerListen, 4), 'Listen') then
 exit;

MessageBox(0, 'Сервер запущен', 'Внимание!!!', 0);

while (true) do
 begin
  iSize := sizeof(clientaddr);

  //Приём нового соединения

  sClient := accept(sServerListen, @clientaddr, @iSize);

  if sClient = INVALID_SOCKET then
   begin
    TestWinSockError('accept');
    break;
   end;

  // Соединение принято, создаём поток
  s1:=TCPClientThread.Create(true);
  s1.Sock:=sClient;
  s1.Resume;
 end;
closesocket(sServerListen);
end;