Recently I needed to render the Screen's Cursor image to
a bitmap. This is how to do it.
//Get the handle of the current cursor
HCursor := Screen.Cursors[Ord(Screen.Cursor)];
//Draw the icon to a canvas
See DrawIconEx in the Delphi help for combinations which may replace DI_NORMAL, like DI_MASK or DI_DEFAULTSIZE