Media player i format czasu

cze!
mam pytanko.
w helpie delphi w pomocy do komponentu MediaPlayer jest przykład użycia formatu czasu HMS (godziny-minuty-sekundy). Ale to chyba nie działa tak jak powinno.
czy ktos może wie jak poprawnie zastosować format czasu tfHMS dla komponentu MEDIAPLAYER???

przykład

var
czas: integer;
minuty:integer;
sekundy: integer;
czasstr: string;
begin
mediaplayer.timeformat := tftmsf;
czas:=mediaplayer.position;
minuty := mci_tmsf_minute(czas);
sekundy := mci_tmsf_second(czas);
czasstr:=format('%2.2d:%2.2d',[minuty,sekundy]);
label1.caption := czasstr;

ja nie chce oczytywać czasu płyty, tylko czas trwania np filmu, wystarczą minuty i sekundy, napisz jak to w końcu ma być, thx

Przykład:

var s1,s2 : LongInt;
ls : String;
begin
s1:=MediaPlayer1.Position div 1000;
s2:=MediaPlayer1.Length div 1000;

label1.Caption:='';
ls:=IntToStr(s1 div 3600);
if Length(ls)=1 then ls:='0'+ls;

ls:=IntToStr(s1 div 60);
if Length(ls)=1 then ls:='0'+ls;
label1.Caption:=label1.Caption+ls+':';
ls:=IntToStr(s1 mod 60);
if Length(ls)=1 then ls:='0'+ls;
label1.Caption:=label1.Caption+ls+' / ';
ls:=IntToStr(s2 div 3600);

label1.Caption:=label1.Caption;
ls:=IntToStr(s2 div 60);
if Length(ls)=1 then ls:='0'+ls;
label1.Caption:=label1.Caption+ls+':';
ls:=IntToStr(s2 mod 60);
if Length(ls)=1 then ls:='0'+ls;
label1.Caption:= label1.Caption+ls;

chyba tak ;)
//uzywaj

prawie to działa, ale nie do końca, wyniki są tylko zbilżone do prawdziwych, postaram się to po prawić sam ale jakbyś mógł to napiszto tak żeby działało jak należy i zanim to opuplikujesz to sprwdź , thx