BassdllPlayer vergangene Zeit eines tracks?

[Darnus]

Ahja hier die auflösung ich habe es nun so gemacht da ich das so haben wolte 0:00...

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var zeit,Minutes,Seconds:integer;
begin
with BassdllPlayer1 do
  zeit:= position;
  Minutes:= zeit div 60;
  Seconds:= zeit mod 60;

if Seconds <10 then Label5.Caption :=IntToStr(Minutes) + ':0' + IntToStr(Seconds)
else Label5.Caption :=IntToStr(Minutes) + ':' + IntToStr(Seconds);

zeit:= bassdllplayer1.Length;
  Minutes:= zeit div 60;
  Seconds:= zeit mod 60;

if Seconds <10 then Label29.Caption :='Time: '+IntToStr(Minutes) + ':0' + IntToStr(Seconds)
else Label29.Caption :='Time: '+IntToStr(Minutes) + ':' + IntToStr(Seconds);

end;

es geht sogar ^^