如何在程序中改变鼠标的显示样式？

Form1.Cursor:=
下面是一些预定义的鼠标。
crDefault 0 Whatever cursor is the default for the window class (usually crArrow).
crNone -1
crArrow -2
crCross -3
crIBeam -4
crSizeNESW -6
crSizeNS -7
crSizeNWSE -8
crSizeWE -9
crUpArrow -10
crHourGlass -11
crDrag -12
crNoDrop -13 crHSplit -14
crVSplit -15
crMultiDrag -16
crSQLWait -17
crNo -18
crAppStart -19
crHelp -20
crHandPoint -21
crSize -22 (obsolete)
crSizeAll