TFDSet = packed record
  fd_count: u_int;
  fd_array: array[0..fd_setsizE-1] of TSocket;
  end;