anchor.diff:          Halt(1);
       end;
   
  -    { server_socket.socket.SetReuseAddress(TRUE); }
  -    { server_socket.socket.SetBlocking(TRUE); }
  +    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);
  
positive.code: Const
      SERVER_PORT = 7000;
      QUEUE_TIMEOUT_SECS = 4;
      BUFFER_SIZE = 1024;
  
      SERVER_NAME = 'HttpThreadsServer.pas';
  
negative.code:     ClientAddrSize: LongInt;
      request_record: PRequestRecord;
      multithreaded: boolean;
      sock_opt_arg: integer;
  
  begin
      multithreaded := true;
  