Definitivamente tu código no me funciona, pero este si, lo estoy estudiando y funciona de maravillas.
Código Delphi
[-]var HFnt: HFONT; Fontname, Txt: PChar; sze: Size;
begin
Fontname := 'Arial';
txt := '[cHackAll]';
HFnt := CreateFont(90, 60, 0, 0, FW_BOLD, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
PROOF_QUALITY, DEFAULT_PITCH + FF_DONTCARE, Fontname);
SelectObject(Canvas.Handle, hfnt);
SetBkMode(Canvas.Handle, TRANSPARENT);
GetTextExtentPoint32(Canvas.Handle, txt, length(txt), sze);
BeginPath(Canvas.Handle);
TextOut(Canvas.Handle, 0, 0, Txt, length(Txt));
EndPath(Canvas.Handle);
StrokePath(Canvas.Handle);
SetBkMode(Canvas.Handle, OPAQUE);
DeleteObject(SelectObject(Canvas.Handle, GetStockObject(WHITE_BRUSH)));
SelectObject(Canvas.Handle, GetStockObject(SYSTEM_FONT));
DeleteObject(HFnt);
end;