BassdllPlayer vergangene Zeit eines tracks?

[Darnus]

Ich habe ein problem und zwar soll die zeit angezeigt werden die abgespielt wird, das funktioniert beim TMediaplayer jedoch nicht beim bassdllplayer:

Delphi-Quellcode:

procedure TForm1.Timer4Timer(Sender: TObject);
var h,i:integer;
begin
h := BassdllPlayer1.SongLength div 1000;
Label3.Caption :='Gesamt Zeit '+ IntToStr(h div 60)+':'+IntToStr(h mod 60);

i := BassdllPlayer1.Position div 1000;
Label4.Caption :='Vergangene Zeit: '+ IntToStr(i div 60)+':'+IntToStr(i mod 60);
end;

Kann mir jemand sagen wie das geht der zeigt nur 0:0 an mehr nicht!