Bass.dll erneutes starten von Lied unterbinden

[Luki206]

So, ich habe jetzt einmal den Code von Perlsau soweit bearbeitet wie ich denke das es richtig ist. Nur gibt es jetzt ein kleines Problem, die Trackbar spring gleich zum ende bzw. hüpft sofort ans Maximum aber ich erkenne jetzt keinen Fehler. Hier der Code:

Delphi-Quellcode:

procedure TFrmHaupt.TmrPosTimer(Sender: TObject);
Var
  Wert,
  Level,
  Posi : DWord;

begin
  if BASS_ChannelIsActive(strs) = BASS_ACTIVE_PLAYING then
  begin
     Level := BASS_ChannelGetLevel(strs);
     Wert := LoWord(Level);
     posi := BASS_ChannelGetPosition(strs,BASS_POS_BYTE);
     TrbPos.Position := Round(Posi/LLength);
     second := Round(BASS_ChannelBytes2Seconds(strs,Posi));
     LblLaufzeit.Caption := Format('%d:%d', [second div 60, second mod 60]);
  end;

  if BASS_ChannelIsActive(strs) = BASS_ACTIVE_STOPPED then
  begin
   if LRelis then
     begin
       BASS_ChannelPLay(strs, true);
       TrbPos.Position := 0;
       second := 0;
       LblLaufzeit.Caption := '0:0';
     end
    else
     begin
      TmrPos.Enabled := False;
      ImgVorClick(nil);
   end;
  end;
end;