如何使用代码生成多个文本框？

Question

请问如何使用代码生成多个文本框，然后在运行过程中获得用户在这些文本框中填写的信息？

Answer 1

var
  a: TButton;
begin
  a := TEdit.create(self);
  a.parent := self;
end;要获取文本框内容：
var
b: string;
b:= a.text;
这样对么？

Answer 2

implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);//按下建立N个文本框
var N:integer;
begin
    for N:=1 to StrToInt(Edit1.Text) do
    begin
        CreateEdit(50,N*20);
    end;
end;
procedure TForm1.CreateEdit(X,Y:integer);
var TemEdit:TEdit;
begin
    TemEdit:=TEdit.Create(self);
    TemEdit.Parent:=self;
    TemEdit.Left:=X;
    TemEdit.Top:=Y;
end;end.