Firemonkey auf Canvas eines Steuerelementes zeichnen

[sko1]

Hallo,

aus bestimmten Gründen muss ich direkt auf das Canvas eines TExpanders zeichnen.
Dass ich das im OnPaint machen muss, weiß ich, aber jetzt passiert etwas ganz merkwürdiges:

Delphi-Quellcode:

procedure TForm1.Expander1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  Expander1.canvas.BeginScene();
  Expander1.canvas.Clear(Talphacolors.Blue);
  Expander1.canvas.EndScene;
end;

Das gesamte Formular und der Expander wird blau!
Was ist denn nun los?

Nachtrag:
Wenn ich den Code verlagere nach

Delphi-Quellcode:

procedure TForm1.Expander1Painting(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  Expander1.canvas.BeginScene();
  Expander1.canvas.Clear(Talphacolors.Blue);
  Expander1.canvas.EndScene;
end;

ist das Formular blau und der Expander weiß!

Ciao
Stefan