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;