Код:
var
fDefMusicVolume : Single;
...
fDefMusicVolume := BASS_GetVolume;
TrackBar.Position := Trunc(fDefMusicVolume * 100);
В fDefMusicVolume величина в пределах 0..1, а ты ещё умудрился на 100 разделить.
P.S. тип Single появился с версии 2.4, в 2.3 был Integer;