Získanie a zmena pozície kurzora.

procedure TForm1.Button1Click(Sender: TObject);
var
 pt: TPoint;
begin
 GetCursorPos(pt);//ziskanie pozicie kurzora
 SetCursorPos(pt.x, pt.y);//zmena pozicie kurzora
end;