в событии OnMouseDown координаты мыши уже передаются:
Код:
TMouseEvent = procedure(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer) of object;
т.е. алгоритм такой:
-создать обработчик события OnMouseDown
-взять координаты мыши X, Y
-все - место клика мыши известно