Соображалка досоображала:
Если изменить так:
If MouseHit(1)=1 And MouseDown(1) and RectOverlap (x1,x2,y1,y2) and ... then
<Свой Код>
endif
Те:
MouseHit() - возвращает кол-во нажатий (одинарный или даблклик и тд)
MouseDown() - возвращает true если в
данный момент кнопка мыши зажата.
Витоге условие выполняется только при нажатии на объекте.