anchor.diff:    AlutInit(nil,argv);
     alDistanceModel(AL_LINEAR_DISTANCE_CLAMPED);
     LoadSoundsDAT();
  -  AlGenBuffers(32, @ALBuffer); //64 looks like the limit
  -  AlGenSources(32, @ALSource);
  +  AlGenBuffers(MaxSourceCount, @ALBuffer); //64 looks like the limit, depends on hardware
  +  AlGenSources(MaxSourceCount, @ALSource);
  +  //Set default Listener orientation
  +  Listener.Ori[1]:=0; Listener.Ori[2]:=1; Listener.Ori[3]:=0; //Look-at vector
  +  Listener.Ori[4]:=0; Listener.Ori[5]:=0; Listener.Ori[6]:=1; //Up vector
  +  AlListenerfv ( AL_ORIENTATION, @Listener.Ori);
   end;
   
   procedure TSoundLib.LoadSoundsDAT();
  
positive.code:     end;
    end;
  
    if i>=MaxSourceCount then exit;//FreeBuf:=MaxSourceCount;
  
    ID:=word(SoundID);
  
  
negative.code:     constructor Create;
      procedure ExportSounds();
      procedure UpdateListener(Pos:TKMPoint);
      procedure Play(SoundID:TSoundFX; Loc:TKMPoint; Attenuated:boolean);
  end;
  
  var
  