LoadCursor为啥不成功

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
{$R ico.res}
procedure TForm1.Button1Click(Sender: TObject);
begin
  screen.Cursors[2]:=LoadCursor(HInstance,'bb'); //从资源文件中载入却不可以
  //screen.Cursors[2]:= LoadCursorFromFile('4WAY01.CUR'); //可以
  Cursor:=2;
end;end.
ico.rc文件如下
aa ico "4WAY01.CUR"
bb ico "4WAY03.CUR"

Answer 1

aa ico "4WAY01.CUR"
LoadCursor 
一个是ICO，一个是LoadCursor，能加载吗？我不知道啊。
资源文件应该是bb cursor "4WAY01.CUR"吧。
我没试，给点建议。