/ / Move mouse to the control
procedure MoveMouseIntoControl (AWinControl: TControl); var rtControl: TRect; begin rtControl: = AWinControl.BoundsRect; MapWindowPoints (AWinControl.Parent.Handle, 0, rtControl, 2); SetCursorPos (rtControl.Left (rtControl.Right - rtControl.Left ) DIV 2, RTControl.top (RTControl.bottom - RTControl.top) Div 2);