const 
crMyCursor = 1; 
..... 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
// Загружаем курсор 
Screen.Cursors[crMyCursor] := LoadCursorFromFile('c:\mystuff\mycursor.ani'); 
// Используем курсор на форме 
Cursor := crMyCursor; 
end;