Image Transparent machen

[Christian18]

Hallo,

hat jemand spontan eine Idee, wie ich mein Bild in der TImage Konponente transparent bekomme? Ich will eine kleine Funktion schreiben, der ich eine Ganzzahl übergebe und dann soll ein Bitmap zurück gegeben werden. Also die Fkt. soll das Image tranparent machen.

Delphi-Quellcode:

function Transparent(Percent : Integer: Destination : TBitmap) : TBitmap;
begin

end;

LG Chris