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

Следом за акцией "Кликни Деда Мороза!" компания Coca-Cola планирует с Нового года запустить акции "Бэкапни Деда Мороза" и "Форматни Снегурочку"

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