delphi7 怎么判断鼠标左右键事件

delphi7 如何判断鼠标左右键事件?
delphi7 如何判断鼠标左右键事件?

想实现这个效果
http://hi.baidu.com/%D2%AC%D7%D3%CC%EC%D1%C4/album/item/f3e71eeae613129cb3fb953f.html#

中间点击鼠标左键  两边各点击鼠标右键 
[解决办法]
你看看keyPress事件中 ，有一个参数是说 左键还是右键 还是中间滑轮的 ；
[解决办法]
占个位置学习学习
[解决办法]
OnMouseDown事件里判断

if button=mbLeft then   
  showmessage('1');   
if button=mbright then   
  showmessage('2');