Auf TabSheet zeichnen

[CReber]

Warum zeigt der mir nix an?

Delphi-Quellcode:

procedure DrawAAText(Text : String; X, Y : Integer; SendTo : TTabSheet);
  var bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  with bmp do begin
    //Transparent := True;
    Handle             := GetDC(SendTo.Handle);
    Width              := 200;
    Height             := 50;
    Canvas.Font.Name   := 'Microsoft Sans Serif';
    Canvas.Font.Size   := 12;
    Canvas.Font.Style  := [fsBold, fsItalic];
    Canvas.Brush.Color := $00FBE8DD;
    //Canvas.FillRect(Rect(0,0,200,50));
    try
      Canvas.TextOut(x, y, Text);
    finally
      Free;
    end;
    //BmpGBlur(bmp, 2);
    {try
      Handle := GetDC(SendTo.Handle);
      Canvas.Draw(X, Y, bmp);
    finally
      //ReleaseDC(MyCanvas.Handle, TabSheet1.Handle);
      Free;
    end;                             }

  end;
end;