unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type

  TMemo = class(Vcl.StdCtrls.TMemo)
  private
    BackPanel : TPanel;
  public
    procedure Encapsule;
  end;

  TForm3 = class(TForm)
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormShow(Sender: TObject);
begin
  Memo1.Encapsule;
end;

{ TMemo }

procedure TMemo.Encapsule;
begin
  BackPanel:=TPanel.Create(Parent);
  BackPanel.Left:=Left;
  BackPanel.Top:=Top;
  BackPanel.Width:=Width;
  BackPanel.Height:=Height;
  BackPanel.Align:=Align;
  BackPanel.AlignWithMargins:=AlignWithMargins;
  BackPanel.Margins:=Margins;
  BackPanel.Color:=clRed;

  BackPanel.Parent:=Parent;

  Parent:=BackPanel;
  AlignWithMargins:=True;
  Align:=alClient;
end;

end.