#pas
procedure THIBASS_Video._work_doVolume;
var vol: Real;
begin
  vol := (ToReal(_Data)*0.01);
  BASS_ChannelSetAttribute(Chan, BASS_ATTRIB_VOL, vol);
end;