图形跟踪鼠标解决办法

图形跟踪鼠标
当鼠标随意移到某位置并单击时 图形就在该处画出来。
请各位帮助，谢谢！

[解决办法]
var
m_PT: TPoint;
begin
GetCursorPos(m_PT);

BitBlt(GetDC(0), m_PT.X, m_PT.Y, image1.Width, image1.Height, image1.Canvas.Handle, 0, 0, SRCCOPY);
end;
[解决办法]
接分先！
[解决办法]