비슷한 질문이 있었던 것 같은데..
여하튼 두 가지 방법을 알려드릴테니..
편하신데로 사용하세요..
(그런데 질문하신 요점이 이것이 맞을런지??)
1번을 추천하지만..
이름이 서로 틀린 경우에는..
2번을 사용하실 수 밖에 없구요..
다른 방법은 Edit의 Tag를 Index로 사용하고..
Form1.Components[Index:Integer]를 이용하셔서..
콤포넌트를 죄다 검색하면서 TEdit에 Tag를..
검사하시와요..

From 류..

---------

1. FindComponet 사용

Function  EditArray(Index:Integer):TEdit;
Begin
  Result:= TEdit(FindComponent('Edit'+IntToStr(Index)));
End;


2. Array를 사용

Var
   Edits : Packed Array [1..100] of TEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edits[1]:= Edit1;
Edits[2]:= Edit2;
Edits[3]:= Edit3;
Edits[4]:= Edit4;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Edits[2].Text);
end;