Zeichnen auf Canvas unter Firemonkey

[Matima]

Hallo, ich bin Firemonkey Anfänger und möchte auf Canvas unter Android Zeichnen.
Wenn ich bei folgendem Programm auf den Button clicke flackert die Linie kurz auf und verschwindet dann wieder.
Unter Windows als Zielplattform bleibt die Linie.
Was mache ich falsch?

procedure TForm2.Button1Click(Sender: TObject);

begin
Panel1.Canvas.BeginScene;
Panel1.Canvas.Stroke.Color := TAlphaColorRec.Red;
Panel1.Canvas.DrawLine(PointF(0, 0), PointF(Panel1.Width, Panel1.Height), 10);
Panel1.Canvas.EndScene;
end;

Vielen Dank für eure Hilfe