h:TPoint;
GetCursorpos(h);
sendmessage(Handle, WM_LBUTTONDOWN, MK_LBUTTON, h.X);
sendmessage(Handle, WM_LBUTTONUP, MK_LBUTTON, h.Y);