[Alegun]

Можно ещё и так

Код:

...
 for i:=1 to 35 do inc(i2, StrToInt((FindComponent('Edit' + IntToStr(i)) as TEdit).Text));
...

З.Ы. Или ваш вариант, но только счетчик компонентов начинается с нуля, т.е. надо for i:=0 to 35