关于real控件的使用问题(50分)

为了给程序添加背景音乐并在程序运行时自动播放，我在程序中添加了realaudio组件，然后加入代码：
RealAudio1.source:=Pchar(ExtractFilePath(Application.ExeName)+'bgmusic/1.mp3');
调用当前目录下的1.mp3文件；
但是这样做有一个问题，就是编译后的程序在没有安装RealPlayer的机子上不能运行，提示什么组件未注册，请问能否不用realaudio组件而达到同样的目的呢？应该如何做，期待高手指点，谢谢！

如仅播放MP3可用TMediaPlayer,播放更多用Dspack

我是想给程序加点背景音乐，mp3或者wav格式都可以，越通用越好。
查了资料，说是用api最好：
先在uses中加入mmsystem，再加入代码：
procedure TForm1.FormCreate(Sender: TObject);
begin
playsound('F:/music/离别曲.wav',handle,snd_loop or SND_ASYNC);
end;
但是不能播放，请问是代码哪里有问题吗？还有，能不能把wav文件嵌入程序中呢，这样编译后就不用再单独提供wav了，应该如何做呢？
谢谢！