请教一下改变视频输出尺寸的方法。(50分)

请教一下改变视频输出尺寸的方法。
我用下面的语句试过，不行。请帮助我。
with MediaPlayer1 do
begin
Close;
Filename := './Mpg/导入.mpg';
// DisplayRect:=Panel1.ClientRect;
// DisplayRect:=Panel1.BoundsRect;
DisplayRect:=Rect(10,10,600,480);
DeviceType := dtAutoSelect;
Open;

DisplayRect:=form2;//显示为form2的尺寸

我用该方法，
窗口只是在窗口的左上角