[ryderx34]

Я делал это примерно так:

Код:

var
  a:=Real;

  . . .

  a:=BASS_ChannelGetLength(streamhandle, BASS_POS_BYTE) / 100;
   //100 - число пикселей, которым ограничивается перемещение Image1 (ползунок трэкбара)

  . . .

  BASS_ChannelSetPosition(streamhandle, Round(Image1.Left * a), BASS_POS_BYTE);