关于背景音乐的播放？ (40分)

因为程序即要打开音乐文件， 又要播放音乐文件。
MediaPlayer1.Open;
Mediaplayer1.Play;
------------------------------------
所以在此过程中， 肯定要几秒停顿， 因此可以肯定需要用到“线程”。
我可以在线程中播放而其它操作没停顿的感觉， 但音乐播放后就是停不下来。
如何使在线程中播放的音乐能停下来呢？

这样行不行？没试过，你自己试
type
TPlaySound = class(TThread)
private
MediaPlayer1: TMediaPlayer;
protected
procedure Execute;
override;
public
procedure StopPlay;
end;

procedure TPlaySound.StopPlay;
begin
Mediaplayer1.Stop;
Suspend;
end

谢谢， 我先试一下！