Transparent zeichnen

[Popov]

Ich sehe wieder vor lauter Bäume den Wald nicht mehr. Ich will eine Bitmap transparent zeichnen, etwas was ich seit über 15 Jahren mit Delphi mache und plötzlich weiß ich nicht wieso es nicht klappt.

Delphi-Quellcode:

  with Image1.Picture do
  begin
    Bitmap.Width := 200;
    Bitmap.Height := 200;
    Bitmap.Canvas.FillRect(Bitmap.Canvas.ClipRect);
    Bitmap.Canvas.Ellipse(Bitmap.Canvas.ClipRect);

    Bitmap.Transparent := True;
    Bitmap.TransparentColor := Bitmap.Canvas.Pixels[0, 0];
    Self.Canvas.Draw(0, 0, Bitmap);
  end;