var Obj: TFmxObject; Rectangle1: TRectangle;begin Obj := FMemo.FindStyleResource('background'); if Obj nil then begin TControl(Obj).Margins := TBounds.Create(TRectF.Create(-2, -2, -2, -2)); Rectangle1 := TRectangle.Create(Obj); Obj.AddObject(Rectangle1); Rectangle1.Align := TAlignLayout.Client; Rectangle1.Fill.Color := TAlphaColorRec.Blue; Rectangle1.Stroke.Kind := TBrushKind.None; Rectangle1.Hi..