Komponente lässt sich über "free" nicht löschen

[Luckie]

Ghet doch:

Delphi-Quellcode:

var
  Form1: TForm1;
  MyBtn: TButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyBtn := TButton.Create(nil);
  MyBtn.Parent := Form1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyBtn.Free;
end;

Man muss es nur richtig machen.