FMX - TMemo 바탕색 변경

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.HitTest         := False;

    Rectangle1.SendToBack;

  end;

end;