[GrabbeR]

Решил. Вот, может кому понадобится. Спасибо всем за помощь и наводки!

Код:

var
  i, q : Integer;
  s : String;
begin
  q := 0;
  for i := 0 to 34 do
  begin
    s := TEdit(FindComponent('Edit' + IntToStr(i + 1))).Text;
    q := q + StrToIntDef(s, 0);
  end;
  Label1.Caption := IntToStr(q);
end;