Delphi - Volumen

Buen dia tengan todos.
Soy principiante en Delphi y estoy experminetando tratando de crear un reproductor de musica. pero tengo un problema no se como controlar el volumen de windows. por favor si alguien conoce algun codigo o objeto seria tan amable de informarme.

A ver si esto te ayuda:

Sacado de Trucomanía (http://q3.nu/trucomania/truco.cgi?445&esp)

Añade MMSystem al uses del form. Izq y Der son el volumen de las salidas derecha e izquierda.

procedure FijarVolumen(Sender: TObject);
var
volumen: DWORD;
izq, der: word;
begin
Volumen:=0;
izq:=50000; //Un valor entre 0 y 65535
der:=50000;
Volumen:=volumen or izq;
Volumen:=volumen + (Der Shl 16);
WaveOutSetVolume(WAVE_MAPPER, volumen);
end;

Saludos.