delphi mediaplayer 录音获取录音时长

Delphi使用mediaplayer 录制wav文件，如何获取录取的时长呢

MediaPlayer1.Length

FormatDatetime('hh:nn:ss', Mediaplayer1.Length / 1000 / (24*60*60));

Mp3size := MediaPlayer1.Length div 1000;
min := Trunc(Mp3size/60); //分
sec := Mp3size mod 60; //秒