Вычисляй координаты мыши при клике, песчитывай, узнавай половинку и все тут...
Код:
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer);
Cобытие нажатия мыши где
Button правая/левая кнопка
Shift нажатие на Shift/Alt/Ctrl
X, Y координаты мыши