动态生成控件问题

Question

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
edit :array[0..10] of  tedit;
label1 :array[0..10] of  Tlabel;
begin
for i:=0 to 10 do
begin
label1[i]:=Tlabel.create(self);
label1[i].Parent:=form1;
edit[i]:=Tedit.create(self);
edit[i].Parent:=form1;
edit[i].left:=label1[i].left+10;
end;
end;

Answer 1

为什么不哟功能LabeledEdit控件
delphi6自带，additional页上！

Answer 2

上面我写的有问题！改为：
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
edit :array[0..10] of  tedit;
label1 :array[0..10] of  Tlabel;
begin
for i:=0 to 10 do
begin
label1[i]:=Tlabel.create(self);
label1[i].Parent:=form1;
edit[i]:=Tedit.create(self);
edit[i].Parent:=form1;
if i<>0 then
label1[i].Left:=edit[i-1].Left+10;
edit[i].left:=label1[i].left+20;
end;
end;

Answer 3

if i<>0 then
label1[i].Left:=edit[i-1].Left+edit[i-1].width+10;

Answer 4

to quake1007(dada)那么在第一个EDIT建立的时候，你没有设立它的位置？？