Animowany kursor myszy

Nowy kursor myszy dla tworzonego przez nas programu możemy wczytać w bardzo prosty sposób posługując się funkcją LoadImage oraz zwróconym w wyniku jej wywołania uchwytem. Oto kod całej procedury:

procedure TForm1.Button1Click(Sender: TObject);
var h : THandle;
begin
  h := LoadImage(0,'C:\program\Magic.ani', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);
  if h = 0 then 
     ShowMessage('Nie można wyświetlić kursora')
  else begin
     Screen.Cursors[1] := h;
     Form1.Cursor := 1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);

var h : THandle;

begin

h := LoadImage(0,'C:\program\Magic.ani', IMAGE_CURSOR, 0, 0, LR_LOADFROMFILE);

if h = 0 then

ShowMessage('Nie można wyświetlić kursora')

else begin

Screen.Cursors[1] := h;

Form1.Cursor := 1;

end;