如何让mediaplayer播放另一首音乐?(50分)

在程序设计期间令 mediaplayer1.FileName :='d:/compass/望江南.mid',
mediaplayer1.visible:=false;
现在想通过菜单让mediaplayer1播放另一首音乐,代码如下 :
procedure TmainF.N21Click(Sender: TObject);
begin
mediaplayer1.stop;
mediaplayer1.FileName :='d:/compass/二泉映月.mid';
mediaplayer1.play;
end;
代码运行后放的还是"望江南.MID".
请帮助?

close
open

mediaplayer1.Close;
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
mediaplayer1.Play;

学我