ms in sekunden und minuten stunden umrechen ?

[mimi]

Hallo,
ich habe unter DelphiForum und DelphiPraxis schon gesucht und einiges gefunden, was aber immer die gleichen fehler hatten:
die sekunden waren sprungehaft obwohl der timer auf interval 1 eingestellt ist.

ich möchte gerne die, MS umrechnen in Stunden:Minuten:Sekunden habe mir dafür eine funktion geschrieben(die soll noch mehr können, aber ich habe schon den paramter mo hinzugefügt, der jetzt noch nicht verwendet wird)

Delphi-Quellcode:

function TFmod.GetPositionStr(mo:Integer = 0):String;
var
  m,s,ms:Integer;
begin
  ms:=(FSOUND_Stream_GetTime(Music.Stream) div 1000);
  s:=ms;
  m:=s div 60;

  if s >= 60 then begin
    s:=ms+(s div 60);
    s:=s-60*(s div 60);
  end;

  result:=Format('%.2d : %.2d ',[m,s]);
  m:=0; s:=0;
end;

das mit if s > 60 habe ich gemacht weil die s größer sein können als 60 aber irgenwie stimmt die zeit nicht mit Winamp überein: habe ein zeit vergleich gemacht habe bei bis zu einer bestimmten stelle vorgeschplut und dann bei WinAmp das gleiche und es waren unterschiedliche sachen zu höhren bei und dem selben Lied(mp3)).

ich nutze FMod