Probleme mit Bitmap

[daschaos]

Juhu, er compiliert. Darauf wäre ich nie gekommen, die beiden zu vertauschen. Danke!

Allerdings passiert nichts. Was hab ich wieder übersehen ?

Delphi-Quellcode:

procedure TTreemapChart.PaintRectangle(P,Q: TPoint; Layer: Integer; Caption: WideString);
var
  Rect: TRect;
  Offset : Integer;
  Bmp : TBitmap;
begin
  Offset := 1;
  Rect.TopLeft := P;
  Rect.BottomRight := Q;
  Canvas.Brush.Color := LayerColorScheme(Layer);
  Canvas.Pen.Color := clBlack;
  Canvas.Pen.Width := Border;
  Canvas.Rectangle(Rect);
  P.X := P.X - Offset;
  P.Y := P.Y - Offset;
  Q.X := Q.X - Offset;
  Q.Y := Q.Y - Offset;
  Canvas.Pen.Width := Border - 2;
  Canvas.Pen.Color := $EEEEEE;
  Canvas.Rectangle(Rect);
  Canvas.TextRect(Rect, P.X, P.Y, Caption);
  
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile('folder.bmp');
    Bmp.Transparent := True;
    Bmp.Canvas.Draw(P.X, P.Y , Bmp);
  finally
    Bmp.Free;
  end;

end;