constcrMyCursor = 1; procedure
TForm1.FormCreate(Sender: TObject); begin
// Загружаем курсор. Единственный способ для этого Screen.Cursors[crMyCursor] := LoadCursorFromFile('c:mystuffmycursor.ani'); // Используем курсор на форме Cursor := crMyCursor; end
;