Мой DELPHI – Программирование

Вопрос:
Как показать первый кадр AVI-файла?
Ответ:
См. пример.
Пример:

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