怎样动态创建组件？

Question

比如我要在程序运行后创建一个按钮组件，应该怎样写？

Answer 1

var bb:TButton;
begin
    bb:=TButton.create(Application)
    ……
end

Answer 2

type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    btn:TButton;
    procedure btnClick(Sender:TObject);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnClick(Sender: TObject);
begin
  close;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  btn.Free;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  btn:=TButton.Create(Self);
  btn.Parent:=Self;
  btn.Height:=30;
  btn.Width:=75;
  btn.Visible:=True;
  btn.top:=Self.Top+50;
  btn.Left:=Self.Left+50;
  btn.Caption:='动态控件';
  btn.OnClick:=btnClick
end;