Zeichnen auf Canvas unter Firemonkey

[Matima]

Ich habe das Linienzeichnen jetzt in der OnPaint Methode gemacht.
Jetzt bleibt die Linie!

procedure TForm4.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
var Brush: TStrokeBrush;
begin
Brush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Black);

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

PaintBox1.Canvas.EndScene;
end;

Aber wie kann ich das Zeichnen in einem Button Click Ereignis bewirken?
Gibt es eine Möglichkeit die OnPaint Methode von außerhalb aufzurufen?
Sorry, aber ich mache gerade erst meine ersten Schritte.....