pionowy napis z przezroczystym tlem

Jak zrobic pionowy napis (np TLabel) z przezroczystym tlem? Znalazlem tylko takie cos

procedure MakeVerticalFont;
var
MyLogFont : TLogFont;
begin
with MyLogFont do begin
lfHeight := 40;
lfWidth := 0;
lfEscapement := -900; 
lfOrientation := 0;
lfWeight := FW_NORMAL;
lfItalic := 0;
lfUnderline := 0;
lfStrikeOut := 0;
lfCharSet := DEFAULT_CHARSET;
StrPCopy(lfFaceName, 'Arial');
lfQuality := DEFAULT_QUALITY;
lfOutPrecision := OUT_DEFAULT_PRECIS;
lfClipPrecision := CLIP_DEFAULT_PRECIS;
lfPitchAndFamily := DEFAULT_PITCH;
end;
Form1.Canvas.Font.Handle := CreateFontIndirect (MyLogFont);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MakeVerticalFont;
Canvas.TextOut(100,100, ?Jakiś tam tekst?);
end;

Ale z tego co patrzylem to nie ma Transparent czyli przezroczystego tla.

JediVCL chyba pomoże ;-)

MakeVerticalFont;
Canvas.TextOut(100,100, ?Jakiś tam tekst?);

A może dodać pomiędzy tymi dwoma instrukcjami Canvas.Brush.Style := bsClear ?