在listbox中怎么播放音乐啊?

我在窗体中加，1个MediaPlayer1控件，1个Timer1控件，1个Gauge1控件，运行以下代码，就是打不开设备，无法播放音乐，难道一定要用对话框才能实现？我试了一晚上都未成功！请大家帮忙啊！procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
case Button of
btPlay :
Timer1.Enabled := True ;
btPause:
Timer1.Enabled := False ;
btStop:
Timer1.Enabled := False ;
end;
Gauge1.MaxValue := MediaPlayer1.Length ;
Gauge1.Progress := MediaPlayer1.Position ;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
yiyu:string;
begin
yiyu:='http://down.qingdaomedia.com//qdradio/old/all/yssd.mp3';
mediaplayer1.FileName:=listbox1.Items.MethodName(@yiyu);
end;