急！TMediaplayer为什么播放不出声音？(50分)

在程序中我手动控制播放一系列wave文件,1.wav 2.wav 3.wav......
但不知为何，切换到下一个文件时，声音有时播放得出来，而有时又播放不出来。很奇怪。
在播放前加上判断　
if mpl.mode=mpplaying then

mpl.Close;

procedure TForm1.button1click(Sender: TObject);
begin

i:=(i+1)mod n;
　　f:=inttostr(i)+'.wav';//i为全局变量

　 if mpl.mode=mpplaying then
　//这两句加与
　 mpl.Close;　　　　　　　　 //不加效果一样

mediaplayer1.FileName:=f;
mediaplayer1.Open;
mediaplayer1.Play;
end;

半天没人理？真的好急！帮忙了！