首先感谢吧友@风x千叶翔龙V 的辛勤付出以及其他吧友的积极讨论，让我掌握了有关的编程技术。在此把研究过程中的一些发现进行讨论。

首先这个程序似乎可以不受制于windows单元库的使用，经过简化后的源代码如下，经测试可行，我用的是Free Pascal2.0.4，不知道其他版本是否也是这样。那么mciExecute到底应归类于哪种函数呢？而且很少有子程序是这种写法的，实在受益匪浅，再次谢谢吧友的辛勤劳动！

mciExecute（变量）这里的E必须大写，否则程序无法正常运行。变量其实不仅仅可以用pchar，还能用ansistring，这样就省掉了p：=pchar（某变量：ansistring）这样一个步骤了。
最后最重要的是，我发现这里其实根本不需要多线程，在music（p）后直接写a+b problem，完全没问题，这是得music一步似乎不是和后边程序呈线性排列的，而是作为背景音乐哦！不错吧？这么说来，不需要用到createthread过程的话，windows的调用也就真的不需要了。

音乐格式若是wma，则会弹出一个有歌手头像的方框（无法正常截图）；若是mp3，则没有方框，音乐正常播放。

能同时播放多个音乐吗，播放延时多少