Get Cursor Image (draw it on a Canvas)

The DrawCursor procedure draws a current cursor image on ACanvas at the Position point:

procedure DrawCursor (ACanvas:TCanvas; Position:TPoint) ;
var
  HCursor : THandle;
begin
  HCursor := Screen.Cursors
             [Ord(Screen.Cursor)];
  DrawIconEx(ACanvas.Handle, Position.X, Position.Y,
             HCursor, 32, 32, 0, 0, DI_NORMAL) ;
end;

{
Usage (top-left on a form1):
DrawCursor(form1.Canvas,Point(0,0)) ;
}