多媒体播放器问题

Question

先说一下我用的控件,一个mediaplay,一个panel（作为播放器的屏幕）,一个RealAudio,两个TrackBar（控制进度和音量），三个SpeedButton（静音控制，文件载入控制，媒体关闭控制），一个OpenDialog，
这是源码：
procedure TForm1.FormCreate(Sender: TObject);
begin
 MediaPlayer1.TimeFormat:=tfmilliseconds;
  Label1.Caption:='0:0:0/0:0::0';
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin  TrackBar1.Max:=MediaPlayer1.Length;
  TrackBar1.Min:=0;
  TrackBar1.Position:=MediaPlayer1.Position;
end;procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
  MediaPlayer1.Notify:=true;
  MediaPlayer1.DisplayRect:=Panel1.ClientRect;
end;procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Timer1.Enabled:=false;
  MediaPlayer1.Stop;
  MediaPlayer1.Position:=TrackBar1.Position;
   MediaPlayer1.Play;
   Timer1.Enabled:=true;
end;procedure TForm1.TrackBar2Change(Sender: TObject);
begin
  if not self.SpeedButton1.Down then
  RealAudio1.SetVolume(TrackBar2.Position);
end;procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
self.SpeedButton1.Down:=true;
RealAudio1.SetVolume(0);
end;procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if  OpenDialog1.Execute thenMediaPlayer1.FileName:=OpenDialog1.FileName;end;procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if (MediaPlayer1.Notify)and(MediaPlayer1.Mode=mpstopped) then
begin
MediaPlayer1.Stop;
MediaPlayer1.Rewind;
MediaPlayer1.Play;
end;
 end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
 if   MediaPlayer1.Mode<>mpstopped then
 MediaPlayer1.Stop;
 form1.Close;
end;运行报错：Exception EMCIDevice in module Porject1.exe at 0005BCD0 无法通过给定的扩展名确定设备类型。
我把mediaplay的属性修改了一下（一开始是dtAVIVideo），可以运行，但不能播放文件。给为仁兄能修改我这代码也行，给个相同功能的程序也行，通过立刻给分，先谢谢了可以给我发邮件：[email protected]

Answer 1

procedure TForm1.SpeedButton2Click(Sender: TObject); 
begin 
if  OpenDialog1.Execute then 
begin
MediaPlayer1.Close///++
MediaPlayer1.FileName:=OpenDialog1.FileName; 
MediaPlayer1.Open;///++ Try
endend;