[angvelem]

So:

Код:

var
  Time : DWORD;
...
  Time := DWORD(Trunc(BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetLength(Channel, BASS_POS_BYTE))));