then use mousedown instead click event.

Bindevent (FTCOMVY.bok2.cbotao1, "mousedown", oHandler, "Build") 

procedure build
LPARAMETERS nButton, nShift, nXCoord, nYCoord

try in your code and give the feed back.

update: this is two codes where bindevent click and mousedown work as expected
1-

PUBLIC oHandler
oHandler=NEWOBJECT("myhandler")
BINDEVENT(_SCREEN,"click",oHandler,"my")

DEFINE CLASS myhandler AS Session
   PROCEDURE my
messagebox("a click is occured")     
   RETURN
ENDDEFINE

2-

PUBLIC oHandler
oHandler=NEWOBJECT("myhandler")
BINDEVENT(_SCREEN,"mousedown",oHandler,"my")

DEFINE CLASS myhandler AS Session
   PROCEDURE my
LPARAMETERS nButton, nShift, nXCoord, nYCoord
messagebox("a mousedown is occured at x="+trans(nxCoord)+"  y="+trans(nYcoord))     
   RETURN
ENDDEFINE

can also use the flags option
BINDEVENT(oEventSource, cEvent, oEventHandler, cDelegate [, nFlags])
see :

Help bindevent()

Another question:
Looking to your code i see you create a timer (enabled=.T. and interval=1.......1 millisecond ??)
your timer begin to work and certainly focus all resources...is it normal ?