Как узнать число кадров AVI файла, и выяснить как долго будет проигрывться этот файл?

В приведенном примере указано как получить эту информацию.


procedure TForm1.Button1Click(Sender: TObject);
begin
        MediaPlayer1.TimeFormat := tfFrames;
        ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Length));
        MediaPlayer1.TimeFormat := tfMilliseconds;
        ShowMessage('Number of milliseconds = ' + IntToStr(MediaPlayer1.Length));
end;