Windows Media Player?????

本人将Windows 的MediaPlayer 10.0的控件引入到我的程序中，但是该控件在Delphi 7中却不能实现自动随窗口大小的变化而动态地跟随着变化，各个大虾，有什么好的解决方法。本人急用！！

本人试过在窗体的Resize事件中编写代码，但仍然不能跟随着改变。程序代码如下：

procedure TForm1.FormResize(Sender: TObject);
begin
 if Sender=Form1 then
  begin
    WindowsMediaPlayer1.Height:=Form1.Height-10;
    WindowsMediaPlayer1.Width:=Form1.Width-10;
  end;
end;

本人也试过使用WindowsMediaPlayer的方法：ClientToParent( )但是不知道怎么用？

还有其他比较好的方法没有（不要使用第三方控件）？？？