http://www.cnblogs.com/zhuchengyang/p/7522851.html （前一段）
由于每一个音阶的hz比较难找，这里贴一个
const sounds:array[-6..14]of longint=(131,147,165,174,196,220,247,262,294,330,349,392,440,494,523,587,659,698,784,880,988);
另外，每一拍的音长可以设为0.5左右，有兴趣的可以自己试试看。
原文：http://www.cnblogs.com/zhuchengyang/p/7665422.html