1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

var
  Destination: TBitmap; // hier iwrd der Text als Bmp gespeichert
  Source: TBitmap; // hier ist das Bild das ich über das Label ziehen will
  R: TRect;
begin
// Bitmap erzeugen, Text draufschreiben und als Maske verwenden
  Destination := TBitmap.Create;
  with Destination, Destination.Canvas do
  begin
    Font.Assign(Label1.Font);
    Monochrome := True;
    Width := Label1.Width;
    Height := Label1.Height;
    Textout(0, 0, Label1.Caption);
  end;

// Bild auf Maske anwenden
  Source := TBitmap.Create;
  with Source, Source.Canvas do
  begin
    Width := Label1.Width;
    Height := Label1.Height;
    R := Rect(0, 0, Width, Height);
    CopyRect(R, Label1.Canvas, Bounds(0, 0, Width, Height));
    CopyMode := cmSrcInvert;
    StretchDraw(R, Image1.Picture.Bitmap);
    CopyMode := cmSrcAnd;
    Draw(0, 0, Destination);
    CopyMode := cmSrcInvert;
    StretchDraw(R, Image1.Picture.Bitmap);
  end;
  Label1.Canvas.Draw(0, 0, Source);
  Source.Free;
  Destination.Free;					

1:

DrawText(Canvas.Handle, PChar(<string>), Length(<string>), <rect>, <flags>);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TCustomLabel.Paint;
const
  Alignments: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);
  WordWraps: array[Boolean] of Word = (0, DT_WORDBREAK);
var
  Rect, CalcRect: TRect;
  DrawStyle: Longint;
begin
  with Canvas do
  begin
    if not Transparent then
    begin
      Brush.Color := Self.Color;
      Brush.Style := bsSolid;
      FillRect(ClientRect);
    end;
    Brush.Style := bsClear;
    Rect := ClientRect;

    Brush.BitMap.loadformFile( ... ); // hier muesste dann deine Proc hin

    { DoDrawText takes care of BiDi alignments }
    DrawStyle := DT_EXPANDTABS or WordWraps[FWordWrap] or Alignments[FAlignment];
    { Calculate vertical layout }
    if FLayout <> tlTop then
    begin
      CalcRect := Rect;
      DoDrawText(CalcRect, DrawStyle or DT_CALCRECT);
      if FLayout = tlBottom then OffsetRect(Rect, 0, Height - CalcRect.Bottom)
      else OffsetRect(Rect, 0, (Height - CalcRect.Bottom) div 2);
    end;
    DoDrawText(Rect, DrawStyle);
  end;
end;