halbtransparenten text auf TImage?

[Airblader]

Hi
Ich plage mich seit gestern damit rum, einen text mit einer bestimmten Deckkraft auf ein TImage zu zeichnen.
Bisher hab ich TextOut, nur da gibts keine transparenz.
Nunja...mir wurden 2 Möglichkeiten dargestellt:
- Pixelmanipulation
- AlphaBlending
Wobei eins dem anderem sehr ähnlich kommt.

Ich habe mal als "Grundgerüst" das zusammengebastelt:

Delphi-Quellcode:

function trans_text(const src, dest: TBitmap; opacity: real): Boolean; 
var 
w,h: integer; 
color, color2: Longint; 
r,g,b: byte; 
r2,g2,b2: byte; 
rr,gg,bb: byte; 
begin 
    for h:=0 to src.Height do 
    begin 
        for w:=0 to src.Width do 
        begin 
            color := ColorToRGB(src.Canvas.pixels[w,h]); 
            r := GetRValue(color); 
            g := GetGValue(color); 
            b := GetBValue(color); 
            color2 := ColorToRGB(dest.Canvas.pixels[w,h]); 
            r2 := GetRValue(color2); 
            g2 := GetGValue(color2); 
            b2 := GetBValue(color2); 


            rr := (r*r2) / 255; 
            gg := (g*g2) / 255; 
            bb := (b*b2) / 255; 

            dest.Canvas.pixels[w,h] := RGB(rr,gg,bb); 
        end; 
    end; 
end;

Nunja.
2 Probleme sind offensichtlich:

1. Die richtige Formel zur Manipulation
2. Nur Pixel manipulieren, die nich transparent sind

Übrigens:
src ist ein TImage, auf dem ich mit TextOut schreib, dest ein TImage, wo das ganze dann drauf soll (schon ein anderes bild vorhanden)
und nein, ich meine nicht den weissen kasten, den man mit bsClear wegbekommt.
ich meine, dass die schrift eben transparent werden soll, mit einstellbarer deckkraft (opacity)

Kann mir jmd helfen?