How to get the TMediaPlayer to show the first frame of an AVI file

Problem/Question/Abstract:

How to get the TMediaPlayer to show the first frame of an AVI file

Answer:

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