简单问题，如何动态创建组件

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  edit1:TEdit ;
begin
  edit1 := TEdit.Create;
  edit1.Parent := Form1;
  edit1.Left :=200;
  edit1.Top :=200;
  edit1.Width := 100;
  edit1.Height := 20;
  edit1.Visible :=true;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  edit1:TEdit ;
begin
  edit1 := TEdit.Create(self);
  edit1.Parent := self;
  edit1.Left :=200;
  edit1.Top :=200;
  edit1.Visible :=true;
end;