Półprzeźroczysty tekst na TBitmap

Tak jak w temacie.... Jak stworzyć taki efekt??

Wystarczyło poszukać..

Dzięki!!! ;] Zastosowałem tą procedurkę "DrawTransparency" ale jest problem.... Tekst faktycznie staje się półprzeźroczysty...ale znika mi obramowanie tekstu.... Tu podaję kod:

begin
sText := 'Jakiś tam Tekst';
Text := TBitmap.Create;
Text.PixelFormat := pf24bit;
Text.Width := 71;
Text.Height:= 19;
Text.Canvas.Brush.Color := clBlue;
Text.TransparentColor := clBlue;
Text.Transparent := true;
Text.Canvas.Font.Name := 'Arial Black';
Text.Canvas.Font.Size := 12;
Text.Canvas.Font.Style := Text.Canvas.Font.Style + [fsBold];
Text.Canvas.Font.Color := clBlack;
// Tu tworzę czarne obramowanie...
      Text.Canvas.TextOut(-1, -1, sText);
      Text.Canvas.TextOut(1, 1, sText);
      Text.Canvas.TextOut(-1, 1, sText);
      Text.Canvas.TextOut(1, -1, sText);
      Text.Canvas.TextOut(1, 1, sText);
// A tu będzie właściwy tekst na biało...
      Text.Canvas.Font.Color := clWhite;
      Text.Canvas.TextOut(0, 0, sText);
DrawTransparency(obrazek.Canvas, obrazek.Width - 80, obrazek.Height - 25, Text, 50);
end;

Czy w kodzie jest błąd??? Bez "DrawTransparency" obramowanie jest widoczne..... gdy zastosują tą procedurę wtedy znika [???] ......Proszę o pomoc.... :)

Ktoś wie jak rozwiązać ten problem??? Pomóżcie... proszeeee.....

Ehhhh...... naprawde nikt nie jest w stanie mi pomóc?? :-( :-( :-(

Możesz pokaż cały kod procedury, a nie tylko to co działa dobrze z wyciętym to co wg Ciebie działa źle