Bass: Trackbarlänge wird nicht korrekt verändert

[Nils_13]

Delphi-Quellcode:

  //...
  tb1.Position := 0;
  tb1.Max := GetSongLength;
//...

  var
    Chan          : HSTREAM;

  TPlayerModus  = (moSamples, moMusik,  moStream);

  function TfrmMain.GetSongLength: Integer;
  begin
    Result := 0;

    Case Modus of
      moSamples: Result := round(BASS_ChannelBytes2Seconds(Chan,
                 BASS_ChannelGetLength(chan)));
    end;
  end;