Показать первый кадр AVI-файла

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.ProcessMessages;
  MediaPlayer1.Open;
  Application.ProcessMessages;
  MediaPlayer1.Step;
  Application.ProcessMessages;
  MediaPlayer1.Previous;
end;

Другое по теме:

• Как заставить TMediaPlayer проигрывать одно и тоже бесконечно (AVI например)
• Как получить картинку с видео источника
• Как проиграть AVI на полный экран