Utiliser des curseurs animés

procedure TForm1.FormCreate(Sender: TObject);

begin
Screen.Cursors[crMyCursor]:=LoadCursorFromFile('c:mystuffmycursor.ani');
Cursor := crMyCursor;
end;