[mierda]

uso delphi 7 y yo utilizo esta funcion:

mira a ver si te sirve

Código Delphi [-]
 
procedure TForm1.SetMPVolume(MP: TMediaPlayer; Volume: Integer);
var p: MCI_DGV_SETAUDIO_PARMS; 
begin 
   { Volume: 0 - 1000 } 
   p.dwCallback := 0; 
   p.dwItem := MCI_DGV_SETAUDIO_VOLUME; 
   p.dwValue := Volume; 
   p.dwOver := 0; 
   p.lpstrAlgorithm := nil; 
   p.lpstrQuality := nil; 
   mciSendCommand(MP.DeviceID, MCI_SETAUDIO, 
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
end;

para llamarla

Código Delphi [-]
SetMPVolume(MediaPcanciones,(TrackBcanciones.Position)*50)

ya me cuen ... un saludo.