小问题

1.如何在一个长时间查找过程中增加一个'取消'按钮,具体的代码怎么写.
2.如何在一个窗口中把鼠标变成crHourGlass,我直接用self.Cursor:=crHourGlass,
  可鼠标移动到窗口的其它控件上不变化.