볼륨 조절

해결했습니다.
uses절에 MMSystem 추가하고

procedure TfmMain.SetVol(new_volume: DWORD);   //웨이브볼륨크기변경
begin
 new_volume := MAKEWPARAM(new_volume, new_volume);
 waveOutSetVolume(0, new_volume);
end;

// 현재 볼륨크기를 basic_volume 변수에 저장하기
waveOutGetVolume(0, @basic_volume); //MMSystem 함수