Zeichnen auf Canvas unter Firemonkey

[Matima]

Ich habe das Problem gelöst.
Es geht über das Bitmap von Image:

procedure TForm5.Button2Click(Sender: TObject);
var
BMP: TBitmap;
MyRect: TRectF;
begin
BMP := TBitmap.Create;
BMP.SetSize(400, 400);
MyRect := TRectF.Create(150, 150, 200, 200);
try
BMP.Clear(TAlphaColorRec.Yellow);
BMP.Canvas.BeginScene;

//R.Create(10, 10, 390, 390);
//BMP.Canvas.Font.Size := 36;
//BMP.Canvas.Font.Style:=[TFontStyle.fsbold];
//lWidth := BMP.Canvas.TextWidth(lTextOut);
//bWordWrap := (lwidth > 380);
//BMP.Canvas.FillText(R, lTextOut, bWordWrap, 1, [TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);

BMP.Canvas.Stroke.Kind := TBrushKind.bkSolid;
BMP.Canvas.Stroke.Color := TAlphaColorRec.Brown;
BMP.Canvas.Stroke.Thickness := 5.0;
BMP.Canvas.DrawLine(PointF(1,1),PointF(BMP.Width,B MP.Height),100);
BMP.Canvas.Stroke.Color := TAlphaColorRec.Green;
BMP.Canvas.DrawEllipse(MyRect,100);
BMP.Canvas.EndScene;
Image1.Bitmap.Assign(BMP);
finally
FreeAndNil(BMP);
end;
end;