Wyświetlenie pierwszej klatki animacji w MediaPlayer

Umieśćmy na formularzu przycisk Button, Panel, MediaPlayer (z zakładki System) i OpenDialog (zakładka Dialogs). Aby po kliknięciu przycisku pojawiło się okno dialogowe wyboru pliku, a po wybraniu pliku AVI jego pierwsza klatka została wyświetlona na komponencie Panel:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (OpenDialog1->Execute())
   {
      MediaPlayer1->Display = Panel1;
      MediaPlayer1->DisplayRect = Rect(0, 0, Panel1->Width, Panel1->Height);
      MediaPlayer1->FileName = OpenDialog1->FileName;
      Application->ProcessMessages();
      MediaPlayer1->Open();
      Application->ProcessMessages();
      MediaPlayer1->Step();
      MediaPlayer1->Previous();
   }
}