[0nni]

Код:

procedure MouseToControl(ctrl : TControl);
var
  pt : TPoint;
begin
  pt.X := ctrl.Width div 2;
  pt.Y := ctrl.Height div 2;
  pt := ctrl.ClientToScreen(pt);
  SetCursorPos(pt.X, pt.Y);
end;