Jak namalowac cos na kursorze?

wiem jak pobrac kursor, ktory wlasnie jest wyswietlany na ekranie (nie tylko w moim programie):

var
  CI: TCursorInfo;
begin
CI.cbSize := SizeOf(CI);
if GetCursorInfo(CI) then
if CI.Flags = CURSOR_SHOWING then
        begin
        Form1.Repaint;
        DrawIcon(Form1.Canvas.Handle,64,64, CI.hCursor);
        end;

tylko czy mozna cos na tym kursorze namalowac (i wyswietlic na ekranie)?
bo jak na razie, jakakolwiek operacja konczy sie bledem access violation...

http://delphi.about.com/od/adptips2005/qt/bmp2cur.htm