Free的鼠标单元是mouse。具体的可以看fp的帮助。
我这里没有fp所以也没法子说。

我以前用过一点点，mouse单元下面有以下几个函数：
getmousex:integer; //获取当前鼠标位置x轴
getmousey:integer; //获取当前鼠标位置y轴
需要注意的是获取到的是鼠标在用writeln输出屏幕上的一个字符大小为单位的位置，也就是说整个屏幕中鼠标的坐标大约为0～70(横)×0～25(竖)，还有就是Pascal里x轴是竖着的，y轴是横着的，和解析几何正好相反。
mouse单元下还有一个检查按过鼠标左右键的函数，只是我忘了函数名。