[Страдалецъ]

Код:

Var
  ArrEdit: Array[1..5] of TEdit;
  i: Integer;
begin
 ArrEdit[1] := Edit1;
 ArrEdit[2] := Edit2;
 ArrEdit[3] := Edit3;
 ArrEdit[4] := Edit4;
 ArrEdit[5] := Edit5;
 for i := 1 to 5
 do ArrEdit[i].Text := 'Text'+IntToStr(i);
end;