como deixar sua marca - caveira na tela ( delphi )

noutro dia fui surpreendido com um ataque de um colega onde a tela do meu pc ficou marcada com uma caveira muito show *-* pedi a ele o codigo feito em delphi e estou disponibilizando para aqueles que gostam de deixar sua marca ;)

procedure caveira;
const BUFLEN = 65536;
var deskdc:hdc;
f:hfont;
p:hpen;
b:hbrush;
lb:tlogbrush;
buf:array[0..BUFLEN-1]of char;
begin
deskdc:=getwindowdc(getdesktopwindow);
f:=createfont(500,400,0,0,400,0,0,0,SYMBOL_CHARSET ,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH,'Wingdings');
selectobject(deskdc,f);
p:=createpen(PS_SOLID,3,$FF); selectobject(deskdc,p);
setbkmode(deskdc,TRANSPARENT); settextcolor(deskdc,$FF);
lb.lbStyle:=BS_HOLLOW; b:=createbrushindirect(lb); selectobject(deskdc,b);
ellipse(deskdc,0,0,getsystemmetrics(SM_CXSCREEN),getsystemmetrics(SM_CYSCREEN));
TextOut(deskdc,getsystemmetrics(SM_CXSCREEN) div 2 - 160,getsystemmetrics(SM_CYSCREEN) div 2 - 240,'N',1);
move('OK'#13,buf,3);
end;