[m1sclick]

Твой код не использовал потому-что не понравился он мне. Вот, все работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:=0;
while i = 0 do
begin
  if OpenDialog1.Execute then
  begin
    MediaPLayer1.FileName:= OpenDialog1.FileName;
    inc(i);
  end;
end;
  MediaPLayer1.Open;
  Form2.Show;
  MediaPlayer1.Play;
  MediaPlayer1.Previous;
end;

Вот некоторые мои соображения:
1. Form2 открывай не как модальное окно, а просто Show. Лично у меня была проблема с этим.
2. Зачем использовать для отображения TPanel если можно выводить прямо в Form2?
Я хотел поместить весь код под одну кнопку и поэтому получилось немного не красиво.

UPD: еще как вариант можешь ставить на паузу MediaPlayer1.Pause;