Zeichnen auf Canvas unter Firemonkey

[Matima]

Vielen Dank,
ich habe das Programm erweitert:

procedure TForm2.Button1Click(Sender: TObject);
var Brush :TStrokeBrush;

begin
Brush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Black);

Panel1.Canvas.BeginScene;
Panel1.Canvas.Stroke.Kind := TBrushKind.bkSolid;
Panel1.Canvas.Stroke.Color := TAlphaColorRec.Red;
Panel1.Canvas.DrawLine(PointF(1, 1), PointF(Panel1.Width, Panel1.Height), 50);

Panel1.Canvas.EndScene;
end;


Das Verhalten ist leider gleich geblieben