如何将MediaPlayer1.Length的媒体长度转换成时/分/秒的格式,请大家不吝赐教!(50分)

如何将MediaPlayer1.Length的媒体长度转换成时/分/秒的格式,我本来利用帮助中的示例
的方法进行转换,可结果一直不对,请大家不吝赐教!

以前写的，参考一下吧
WavMediaPlayer.FileName := tmpfilerec.nowplayfile;
WavMediaPlayer.Open;
recleng := WavMediaPlayer.Length;

PositionSlider.MinValue := 0;
PositionSlider.MaxValue := recleng;
PositionSlider.Enabled := true;

recleng := trunc(recleng / 1000 + 0.5);
Min := trunc(recleng / 60);
Sec := recleng - min * 60;
Totallentext.Caption := '总长：' + Format('%.2d', [Min]) + ':' + Format('%.2d', [sec]);

WavMediaPlayer.Play;

用edit1.text:=floattostr(round((form1.mediaplayer1.length)/60000))+'分';

多人接受答案了。