如何把鼠标位置的象素值转化成cm?

一、俺做一个鼠标定位程序，但mousemove中得到的是以象素为单位的值，如何转化成cm?
因为软件用户喜欢的是cm。
二、代码重用问题。比如有几个Button用一个onclick，如果想判断具体是按下哪个按钮只能用case of。有没有this.*** 或T_bl:= Sender.Name; T_bl.Top:= 10之类的方法？