Wczytywanie z dysku animowanego kursora

Wczytanie z dysku animowanego kursora może być umieszczone w zdarzenie OnCreate formularza, następnie nowy kursor jest przypisywany przyciskowi Button1 (animowane kursory mają rozszerzenie *.ANI):

Unit1.cpp

const crAnimate = 5;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Screen->Cursors[crAnimate] = LoadCursorFromFile("c:\\katalog\\kursory\\animate.ani");
   Button1->Cursor = TCursor(crAnimate);
}