anchor.diff:  procedure TSoundLib.CheckOpenALError;
   var ErrCode:integer;
   begin
  -  ErrCode := alcGetError(ALDevice);
  +  ErrCode := alcGetError(fALDevice);
     if ErrCode <> ALC_NO_ERROR then begin
       fLog.AddToLog('OpenAL warning. There is OpenAL error '+inttostr(ErrCode)+' raised. Sound will be disabled.');
       Application.MessageBox(PChar('There is OpenAL error '+inttostr(ErrCode)+' raised. Sound will be disabled.'),'OpenAL error', MB_OK + MB_ICONEXCLAMATION);
  -    IsSoundInitialized := false;
  +    fIsSoundInitialized := false;
     end;
   end;
   
  
positive.code:       PlaySince:cardinal;
      end;}
  
      Sound:array [1..MAX_SOUNDS] of record
        ALBuffer:TALuint;
        ALSource:TALuint;
        Name:string;
  
negative.code: destructor TSoundLib.Destroy;
  var i:integer;
  begin
    if fIsSoundInitialized then
    begin
      for i:=1 to MAX_SOUNDS do begin
        AlDeleteBuffers(1, @fSound[i].ALBuffer);
        AlDeleteSources(1, @fSound[i].ALSource);
      end;
      AlutExit;
    end;
  