Как программно двигать курсор мышки?

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

pt : TPoint;

begin

  Application.ProcessMessages;

  Screen.Cursor := CrHourglass;

  GetCursorPos(pt);

  SetCursorPos(pt.x + 1, pt.y + 1);

  Application.ProcessMessages;

  SetCursorPos(pt.x - 1, pt.y - 1);

end;

Code:

uses

Windows;

procedure PlaceMyMouse(Sender: TForm; X, Y: word);

var

MyPoint: TPoint;

begin

MyPoint := Sender.ClientToScreen(Point(X, Y));

SetCursorPos(MyPoint.X, MyPoint.Y);

end;