How to draw transparent text on Windows Desktop

Here's how to draw transparent text on the Windows Desktop:

{
Usage:
  DrawTextOnDesktop('About Delphi Programming'):
}

procedure DrawTextOnDesktop(TextToDraw: string) ;
var
  Handle: HWND;
  Dc: HDC;
  ACanvas: TCanvas;
begin
  Handle := GetDesktopWindow;
  Dc := GetWindowDC(Handle) ;
  ACanvas := TCanvas.Create;
  try
    ACanvas.Handle := DC;
    BeginPath(ACanvas.Handle) ;
    ACanvas.Font.Color := clRed;
    ACanvas.Font.Name := 'Tahoma';
    ACanvas.Font.Size := 30;
    SetBkMode(ACanvas.Handle, TRANSPARENT) ;
    EndPath(ACanvas.Handle) ;
    ACanvas.TextOut(0, 0, TextToDraw) ;
  finally
    ReleaseDC(Handle, ACanvas.Handle) ;
    ACanvas.Free;
  end;
end;