man kann auch das Array mit FindComponent füllen. Somit ruft man FindComponent nur für jed4es Element 1 mal auf und danach kann man dann flink über das Array arbeiten.
Delphi-Quellcode:
var LCount: Integer;
begin
for LCount := 1 to 34 do
EditArray[LCount - 1] := TEdit(FindComponent('Edit' + LCount));