跟书上学做一个媒体播放器放avi的,用tmediapleyer(100分)

1都说delphi好，我怎么学的一头包？跟书上学做一个媒体播放器放avi的，用mediaplayer这个
控件，结果按f9运行界面是出来了，但马上出来一个提示，原文如下roject project1.exe raised.exception class EMCIDeviceError with message 'no MCI
device open'。process stopped.接着poject就死掉了，我用cad把他毙了。提示说我
emcideviceerror，可我根本没有用什么emcideviceerror呀？？？mci device no open
,那怎么能open这个该死的mci呀？？
2另外procedure里有很多的（sender:Tobject).那sender应该是属于tobject类的吧，
可在程序里没找到有什么sender的呀?
我的环境是delphi4c/s和delphi3 standard

在播放前应打开媒体，如：

with MediaPlayer1do
begin

Open;
Play;
end;


如果没有Open而企图Play是会出现这样的错误的。

至于Sender，是Delphi为实现代码重用而设计的体贴方法。

这样改
procedure TForm1.Button1Click(Sender: TObject);
begin

if opendialog1.execute then

begin

timer1.enabled:=false;
mediaplayer1.close;
mediaplayer1.Open;
mediaplayer1.filename:=opendialog1.filename;
mediaplayer1.timeformat:=tfhms;
caption:=opendialog1.filename;
trackbar1.min:=0;
trackbar1.max:=mediaplayer1.length;
trackbar1.position:=0;
end;


end;

多人接受答案了。