Merlin’s Delphi Forge

Delphi’s runtime library does not provide any routines for copying or moving files. However, you can directly call the Windows API CopyFile() function to copy a file. CopyFile() is also useful when moving files across drives because neither Delphi’s RenameFile() function nor the Windows API MoveFile() function can rename/move files across drives.
!!Note: The file attributes [...]

Animated cursors have become very popular in the days of Windows 3.x. Now they have become a part of Windows 95 and newer. Sometimes you might want to use your own animated cursors instead of the user’s. The idea is same as with “normal” cursors.
Here’s the code:

const
btCursorID1 = 1;
begin
(* sCursorFile - [...]