如何改变 mediaplayer 播放影片的显示大小尺寸？ (100分)

mediaplayer 的 display 指向 panel1,
如何使播放时的显示影片大小与panel1的大小一样？

我在播放时只是占用panel1的一部分！

MediaPlayer1.DisplayRect := Form2.Panel1.ClientRect;//指定播放窗口大小
procedure TForm2.Panel1Resize(Sender: TObject);
begin

Form1.MediaPlayer1.DisplayRect := Panel1.ClientRect;//当窗口改变大小的时候仍然保持不变
end;