一个小问题，各位帮忙回答啊！

Question

试下看：type
  TEdits : Array of TEdit;
var
 edits : TEdits;
begin
 setlength(edits,20);
 edits[0].text := '第一个';
end;

Answer 1

少了一句：
  edits[0] := Edit1;

Answer 2

受到 neweb(永不言败）启发 
补充一下
var
  Edits : Array of TEdit;
  i : integer;
begin
  setlength(Edits,3);
  Edits[0]:=Tedit(edit1);
  Edits[1]:=Tedit(edit2);
  Edits[2]:=Tedit(edit3);
  for i:=0 to 2 do
    begin
      Edits[i].Text:=inttostr(i);
    end;end;

Answer 3

FindComponent('edit'+inttostr(i)) as TEdit

Answer 4

对不起 楼上
我的话是对  neweb(永不言败）说的