Ну тупо создай список со звуками
Type Snd
Field Hndl
End type
Загружай так:
LoadSnd.Snd = New Snd
LoadSnd\Hndl=LoadSound("snd.wav")
И присваивай своим глобальным переменным тот же звук
и потом чтобы удалить сделаешь
For DelSnd.Snd=Each Snd
FreeSound DelSnd\Hndl
delete DelSnd
Next
тока учти, что в твоих глобальных переменных останутся идентификаторы звуков. Чисти вручную.
Но зато в списке будут зареганы все звуки.
Кстати вообще рекомендую делать менеджер не только звуков но и объектов также на списках. Так сможешь облегчить себе жизнь.