[angvelem]

Код:

var
  fDefMusicVolume : Single;
...
  fDefMusicVolume := BASS_GetVolume;
  TrackBar.Position := Trunc(fDefMusicVolume * 100);

В fDefMusicVolume величина в пределах 0..1, а ты ещё умудрился на 100 разделить.
P.S. тип Single появился с версии 2.4, в 2.3 был Integer;