Escribir en el Canvas de un componente

Eneko alonso es un joven programador de Delphi que en su página web nos comparte esta muy útil funcion que permite escribir sobre el Canvas de algun componente en nuestras aplicaciones, pero les dejo que sean sus propias palabras quienes les expliquen el truco:

Para escribir texto transparente sobre el canvas de cualquier componente visual en Delphi, hay que usar la función SetBkMode de la API de Windows.

procedure TForm1.Button1Click(Sender: TObject);
var
  AnteriorBkMode: integer;
begin
 with Form1.Canvas do begin
  Brush.Color := clRed;
  TextOut(100, 80, 'Texto Opaco');
  AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
  TextOut(100, 100, 'Texto Transparente');
  SetBkMode(Handle, AnteriorBkMode);
 end;
end;