private:
void __fastcall TForm1::DrawTransparentBitmap(TCanvas *Canvas, Graphics::TBitmap *Bitmap,TColor TransparentColor, int X, int Y);
void __fastcall TForm1::DrawTransparentBitmap(TCanvas *Canvas, Graphics::TBitmap *Bitmap, TColor TransparentColor, int X, int Y)
{
// Auf Canvas wird das Bild gemalt
// Bitmap ist das Bild
// TransparentColor = Hintergrundfarbe
// X und Y = Koordinaten auf dem Canvas
TImageList *ImageList = new TImageList(this);
ImageList->Width = Bitmap->Width;
ImageList->Height = Bitmap->Height;
ImageList->AddMasked(Bitmap, TransparentColor);
ImageList->Draw(Canvas, X, Y, 0);
delete ImageList;
}