delphi7 如何改变button的形状

问题：在使用的delphi7过程中，个人觉得button按钮的单一矩形形状实在是太难看，想请问有没有除了speedbutton透明显示效果之外，比如增加圆形，椭圆等外框，或者说有没有可能利用canvas去绘制出一个，麻烦大神给个实例，谢谢！