anchor.diff:          Halt(1);
       end;
   
  -    if fpListen(server_socket, 1) <> 0 then
  +    if fpListen(server_socket, LISTEN_BACKLOG) <> 0 then
       begin
           WriteLn('error: listen on socket server');
           Halt(1);
  
positive.code:     ClientAddrSize: LongInt;
      request_record: PRequestRecord;
      multithreaded: boolean;
  
  begin
      multithreaded := true;
  
negative.code:         Halt(1);
      end;
  
      sock_opt_arg := 1;
      fpSetSockOpt(server_socket,
                   SOL_SOCKET,
                   SO_REUSEADDR,
                   @sock_opt_arg,
                   SizeOf(sock_opt_arg));
  
      ServerAddr.sin_family := AF_INET;
      ServerAddr.sin_port := htons(SERVER_PORT);
  