线程中调用TWindowsMediaPlayer控件的有关问题

线程中调用TWindowsMediaPlayer控件的问题
在自己创建的一个线程中，想显示窗口Form2（上面有TWindowsMediaPlayer控件）来播放一段视频，代码如下：
Form2-> WindowsMediaPlayer1-> URL   =   (WideString) "G:\\Video\\cdma04.wmv ";
Form2-> Show();
但运行后Form2没有显示，TWindowsMediaPlayer也没有开始播放，而处于将近死机的状态。

同样的两句代码，如果不放在线程里，如只放在一个按钮的OnClick中，执行起来却一切正常。

请问如何解决线程调用TWindowsMediaPlayer的问题？？？

注：TWindowsMediaPlayer不是BCB自带那个TMediaPlayer组件，而是微软Windows   Media   Player   控件。

------解决方案--------------------
你的线程写错了，基本可以肯定。而且没有调用play函数怎么播放，
如果你的Execute中写这2句代码，一直在循环指定文件名然后show，有什么意思？
------解决方案--------------------
路过,看看,