Установка указателя мыши в управление с фокусом

procedure TForm1.Button1Enter(Sender: TObject); 
begin 
  MoveMouseOverControl(Sender); 
end;

Вот эта функция:

procedure MoveMouseOverControl(Sender: TObject); 
var x,y: integer; 
    point: TPoint; 
begin 
  with TControl(Sender) do 
  begin 
    x:= left + (width div 2); 
    y:= top + (height div 2); 
    point:= Parent.ClientToScreen(point); 
    SetCursorPos(point.x, point.y); 
  end; 
end;