Mediaplayer 和rztrackbar 控制播放关闭窗体时总出现问题(50分)

我的程序是这么写的
procedure TS_chaixie.FormCreate(Sender: TObject);
begin

MediaPlayer1.FileName:='D:/test.avi';
MediaPlayer1.Display:=self.RzPanelbofang;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect:=Rect(-7,-1,450,450);
end;

mediaplayer的display 属性为rzpanelbofang,

procedure TS_chaixie.RzTrackBar1Change(Sender: TObject);
begin

timer1.Enabled:=false;
mediaplayer1.Stop;
//停止播放
mediaplayer1.Position:=Rztrackbar1.Position;//将媒体位置设置为拖动的位置
mediaplayer1.Play;
//继续从当前位置播放
timer1.Enabled:=true;
end;


procedure TS_chaixie.Timer1Timer(Sender: TObject);
begin

rzTrackBar1.OnChange:=nil;
rztrackbar1.Max:=mediaplayer1.Length;
rztrackbar1.Min:=0;
rztrackbar1.Position:=mediaplayer1.Position;//trackbar的位置与媒体播放进度同步
rztrackBar1.OnChange:=rztrackBar1Change;


其中TS_chaixie为available form, 但关闭这个播放窗体时出现了projiect D:BSX.exe faulted with message:’application-defined exception(code 0xc00000008)at 0x7c92eb74’.process stopped ,use step or run to continue 点击ok 后就出现view cpu thread #2276
7c92eb74 8b0424 mov eax,[esp]这一行前面有个绿色的箭头搞不懂是什么意思啊 然后只有单击 progroma reset 才管用 这是怎么回事啊 我始终没解决这个问题，请各路高手帮忙看下啊 谢谢了！

关闭窗口前，先释放 Time事件， Time.enabled:=false;

谢谢你哈
因为我这边上网不是很方便，等回去看下给你答复

chenzy0620 你好
我回去调试一下 可以了，但是还有一个问题 就是在 delphi7 环境中运行时就还会出现projiect D:BSX.exe faulted with message:’application-defined exception(code 0xc00000008)at 0x7c92eb74’.process stopped ,use step or run to continue 点击ok 后就出现view cpu thread #2276这个提醒 需要progroma reset 才可以，而把生成可执行的文件的快捷方式发到桌面运行时就不会有这个问题 这是怎么回事那 会不会打包之后还有这个问题啊 谢谢

终于弄好了 谢谢哈