anchor.diff:  Const
       SERVER_PORT = 7000;
       QUEUE_TIMEOUT_SECS = 4;
  +    LISTEN_BACKLOG = 500;
       BUFFER_SIZE = 1024;
   
       SERVER_NAME = 'HttpThreadsServer.pas';
  
positive.code:         Halt(1);
      end;
  
      { server_socket.socket.SetReuseAddress(TRUE); }
      { server_socket.socket.SetBlocking(TRUE); }
  
      ServerAddr.sin_family := AF_INET;
      ServerAddr.sin_port := htons(SERVER_PORT);
  
negative.code:         Halt(1);
      end;
  
      if fpListen(server_socket, LISTEN_BACKLOG) <> 0 then
      begin
          WriteLn('error: listen on socket server');
          Halt(1);
  