Прозрачный текст на рабочем столе

procedure TForm1.Button1Click(Sender: TObject);
var
  Desktop: THandle;
  MyCanvas: TCanvas;
  DesktopDC: HDC;
begin
  Desktop:= GetDesktopWindow;
  DesktopDC:= GetWindowDC(Desktop);

  MyCanvas:= TCanvas.Create;
  MyCanvas.Handle:= DesktopDC;

  SetBkMode(MyCanvas.Handle, TRANSPARENT);
  MyCanvas.TextOut(10, 10, 'Hello');
end;