abgeleitete visuelle Klasse (TLabel) nicht sichtbar

[palmakunkel]

Ist eigentlich banal, kein Compiler-Fehler, kein Laufzeitfehler, trotzdem sehe ich das dynamisch erzeugte Label nicht. Hab nichts gefunden im Netz, was mein Hirn erhellt. Kann mir einer/eine helfen?

Delphi-Quellcode:

unit UnitMain;

interface

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

type
  TFlatBtn = class(TLabel)
  private
    procedure LabelPerfClick(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
     MyBtn: TFlatBtn;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TFlatBtn.LabelPerfClick(Sender: TObject);
begin
   ShowMessage('Klappt');
end;

constructor TFlatBtn.Create (AOwner: TComponent);
begin
  inherited Create (AOwner);
  Left := 0;
  Top := 0;
  Width := 200;
  Height := 200;
  Alignment := taCenter;
  Anchors := [];
  AutoSize := False;
  ParentColor := False;
  Transparent := False;
  Color:=clRed;
  Layout := tlCenter;
  StyleElements := [];
  WordWrap:=true;
  Visible:=true;
  Enabled:=true;
  OnClick:=LabelPerfClick;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  MyBtn:=TFlatBtn.Create(Form1);
  MyBtn.Name:='MyName';
end;

end.