Program TForm 1. FormCreate (sender: toobject);

defined variable

new cursor:HCursor；

begin

NewCursor := LoadCursorFromFile ('cursor position');

SetSystemCursor(NewCursor，OCR _ NORMAL)；

End;

//Restore the system default cursor.

SystemParametersinfo(SPI _ set cursors，0，nil，SPIF _ send change)；