The TMediaPlayer provides this information by setting the TimeFormat property and querying the Length property. The following example demonstrates retrieving the number of frames and the play time of a given AVI file.

Example:
procedure TForm .Button Click(Sender: TObject);
begin
  MediaPlayer .TimeFormat := tfFrames;
  ShowMessage('Number of frames = ' + 
    IntToStr(MediaPlayer .Length));
  MediaPlayer .TimeFormat := tfMilliseconds;
  ShowMessage('Number of milliseconds = ' +
              IntToStr(MediaPlayer .Length));
end;