Criando componente composto por componentes

uses
  System.SysUtils, System.Classes, FMX.Types, FMX.Controls, FMX.Edit;

type
  TEditTeste = class(TControl)
  private
    FEdit: TEdit;
    function GetFText: String;
    procedure SetFText(const Value: String);

  protected
    procedure Paint; override;

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  published
    property Text: String read GetFText write SetFText;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(''''Delphistrap'''', [TEditTeste]);
end;

{ TEditTeste }

constructor TEditTeste.Create(AOwner: TComponent);
begin
  inherited;
  FEdit := TEdit.Create(self);
  FEdit.Parent := Self;
  FEdit.Align := TAlignLayout.Client;
end;

destructor TEditTeste.Destroy;
begin
  inherited;
end;

procedure TEditTeste.Paint;
begin
  inherited;
end;

procedure TEditTeste.SetFText(const Value: String);
begin
  FEdit.Text := Value;
end;

function TEditTeste.GetFText: String;
begin
  Result := FEdit.Text;
end;

end.