jejejejeje
Mil gracias master, me salvaste la vida.
Lo hice asi :
En el create
Boton:=Rect(Width-Height,2,Width-1,Height-1);
Y en el MouseDown
If (Assigned(KeyDown))
Then Begin
Punto.X:=Msg.XPos;
Punto.Y:=Msg.YPos;
If PtInRect(Boton,Punto)
Then Begin
...
End;
End;
Espero les sirva para algo