var
  mypt : Tmouse ;
  point : Tpoint ;
begin
  point.x := ?
  point.y := ?
  mypt.cursorpos := point ; //设置光标的位置