Компоненты теже, только добавим еще TPanel.
Перейдем к TMediaplayer'y у него надо изменить строку Display на Panel1.
Так все. дальше идем.
перейдем к Panel1. идем на Events создаем onResize;
Впишем код
Код:
procedure TForm1.Panel1Resize(Sender: TObject);
begin
Mediaplayer1.Stop;
Mediaplayer1.DisplayRect := Panel1.ClientRect;
Mediaplayer1.Play;
end;
Вот и все.