>>208
そうだね。Edit1 〜 Edit9 だとすると

for i := 1 to 9 do
TEdit(FindComponent('Edit'+IntToStr(i))).Text := IntToStr(num[i]);

のように。