这个是你要的吗? procedure TForm1.Button1Click(Sender: TObject); var es:array [1..10] of tedit; i:integer; begin for i:=1 to 10 do begin es[i]:=TEdit.Create(self); es[i].Parent:=self; es[i].Name:='Edit'+IntToStr(i); es[i].Left:=10; es[i].Top:=10+30*i; end; end;
procedure TForm1.Button1Click(Sender: TObject);
var
es:array [1..10] of tedit;
i:integer;
begin
for i:=1 to 10 do
begin
es[i]:=TEdit.Create(self);
es[i].Parent:=self;
es[i].Name:='Edit'+IntToStr(i);
es[i].Left:=10;
es[i].Top:=10+30*i; end;
end;