兼通VB与DELPHI的高人:delphi做不出vb这样的效果?解决思路

兼通VB与DELPHI的高人:delphi做不出vb这样的效果?!
一个音频波形图,分别有VB与DELPHI的演示程序,delphi却做不出VB的效果(delphi为单色,vb为彩色)!
由于代码较多,不方便在这里贴出,请有兴趣的高手联系(QQ:729851670)我,我把两个演示程序发给你,以便对比研究。

------解决方案--------------------
就是并凑3种原色为实际颜色:
Buffer.Canvas.Pen.Color := rgb((255 * a) / (HEIGHT_ / 2) , 255 - bh.bmiColors(a).rgbRed ,255);
关键是vb里的a、HEIGHT_要找到对应
a好像是坐标,HEIGHT_好像是测到的数值?