Animated Cursorleri Kullanma

procedure TForm1.Button1Click(Sender:TObject);
var
h : THandle;
begin
h := LoadImage(0
'C:\TheWall\Magic.ani**
IMAGE_CURSOR
0
0
LR_DEFAULTSIZE or
LR_LOADFROMFILE);
if h = 0 then ShowMessage('Cursor not loaded') else begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;