procedure SetVolume(X: Word);  
   var  
     iErr : Integer;  
     i: integer;  
     a: TAuxCaps;  
   begin  
     for i := 0 to auxGetNumDevs do begin  
       auxGetDevCaps(i,Addr(a),SizeOf(a));  
       If a.wTechnology = AUXCAPS_CDAUDIO Then break;  
     end;  

     // Устанавливаем одинаковую громкость для левого и правого каналов.  
     // VOLUME := LEFT*$10000 + RIGHT*1 

     iErr:=auxSetVolume(i,(X*$10001));  
     if (iErr‹›0) then ShowMessage('No audio devices are available!');  
   end;  

   function GetVolume: Word;  
   var  
     iErr : Integer;  
     i: integer;  
     a: TAuxCaps;  
     vol: word;  
   begin  
     for i := 0 to auxGetNumDevs do begin  
       auxGetDevCaps(i,Addr(a),SizeOf(a));  
       If a.wTechnology = AUXCAPS_CDAUDIO Then break;  
     end;  
     iErr:=auxGetVolume(i,addr(vol));  
     GetVolume := vol;  
     if (iErr‹›0) then ShowMessage('No audio devices are available!');  
   end;
	             		

Источник: www.sources.ru