关于手型光标的问题(50分)

Delphi默认的手型光标crHandPoint不好看，有没有办法变成IE中使用的好看的手型光标呢？

g

Screen.Cursors[crMyCursor]:=LoadCursorFromFile(光标文件);
Screen.Cursor:=crMyCursor;
我有许多好看的动画手型光标，你要我就给你寄过去。

　unit Unit1;
　　interface
　　uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
　　type
　　 TForm1 = class(TForm)
　　 procedure FormCreate(Sender: TObject);
　　 private
　　 { Private declarations }
　　 public
　　 { Public declarations }
　　 end;
　　var
　　 Form1: TForm1;
　　implementation
　　{＄R ＊.DFM}
　　{＄R my.res}//加载资源文件my.res
　　procedure TForm1.FormCreate(Sender: TObject);
　　const
　　crmy1=1;
　　crmy2=2;
　　crmy3=3;
　　var
　　result1,result2,result3:integer;
　　begin
　　 result1:=loadcursorfromfile(′my.cur′);
　　 if result1<>0 then
//如果返回值为0，则调用失败！
　　 screen.cursors[crmy1]:=result1
　　 else
　　 showmessage(′加载静态光标文件出错！′);
　　 result2:=loadcursorfromfile(′my.ani′);
　　 if result2<>0 then

　　 screen.cursors[crmy2]:=result2
　　 else
　　 showmessage(′加载动态光标文件错误！′);
　　 result3:=loadcursor(Hinstance,′mycursor′);
Hinstance为定义在System单元中的一个长整变量，其值为应用程序的句柄， 由Delphi自己维护。
在加载资源文件的光标资源时，如果光标的名字为整数（Vc＋＋的资源编辑 器给资源的缺省名就为整数），就必须使用API函数Makeintresource将整数转换 为PansiChar类型，再传递给Loadcursor函数。
例如：result:=Loadcursor(Hinstance,Makeintresource(101))}
　　 if result3<>0 then
　　 screen.cursors[crmy3]:=result3
　　 else
　　 showmessage(′加载资源文件中的光标资源出错！′);
　　//使用加载的光标，cursors[]数组为全局变量，可在程序的任何地方调用；
　　 if result1<>0 then
　　 screen.cursor:=crmy1;
　　 if result2<>0 then
　　 form1.cursor:=crmy2;
　　 if result3<>0 then
　　 screen.cursor:=crmy3;
　　end;
　　end.

抢钱啊？

多人接受答案了。