动态删除控件

Question

运行程序后如何动态删除form上的一个控件？？？
给个例子吧，急等

Answer 1

if assigned(控件名) then
  FreeAndNil(控件名);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Self.ControlCount));  // 显示删除前的控件个数
//  RemoveControl(Edit1);
  Edit1.Free;
  ShowMessage(IntToStr(ControlCount));  // 显示删除后的控件个数end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  控件名称.Free; 
end;