想在image上画一个粗线，如何在鼠标未按下去的时候让鼠标显示为一个红色半透明的圆形呢？

想在image上画一个粗线，如何在鼠标未按下去的时候让鼠标显示为一个红色半透明的圆形呢？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20060929115509278.html
有没有这方面的属性可以直接设置呢？多谢了。

捕捉鼠标位置，实时绘制。