请问如何给程序添加背景音乐？(50分)

我想为程序添加一些可选择的背景音乐，音乐路径为musicpath:=ExtractFilePath(application.ExeName)+'/music/'+inttostr(listbox1.itemindex+1)+'.mid';随LISTBOX1所选取的内容而变化背景音乐，我试着如下的程序：
MCISendString('OPEN musicpath TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString(' pause NN FROM 0', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
但是不行。请问如何做？

手记：给程序加背景音乐 --

http://www.ddvip.net/program/delphi/40.htm

接受答案了.