Fórum destruir e criar componente ... #190983

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

procedure TForm1.FormClick(Sender: TObject);
var
  Button1: TButton;
begin
  Button1:= TButton.Create(Self);
  with Button1 do
  begin
    Name:= ´Button1´;
    Parent:= Form1;
    Caption:= ´Button1´;
    Top:= 6;
    Left:= 66;
    OnClick:= Button1Click;
    Visible:= True;
  end;
end;