[angvelem]

Так что ли?

Код:

var
  Sum1, Sum2 : Integer;
begin
  Sum1 := StrToIntDef(Edit1.Text, 0) + StrToIntDef(Edit2.Text, 0) + StrToIntDef(Edit3.Text, 0) +
          StrToIntDef(Edit4.Text, 0) + StrToIntDef(Edit5.Text, 0) + StrToIntDef(Edit6.Text, 0) +
          StrToIntDef(Edit7.Text, 0) + StrToIntDef(Edit8.Text, 0) + StrToIntDef(Edit9.Text, 0);

  Sum2 := StrToIntDef(Edit10.Text, 0) + StrToIntDef(Edit11.Text, 0) + StrToIntDef(Edit12.Text, 0) +
          StrToIntDef(Edit13.Text, 0) + StrToIntDef(Edit14.Text, 0) + StrToIntDef(Edit15.Text, 0) +
          StrToIntDef(Edit16.Text, 0) + StrToIntDef(Edit17.Text, 0) + StrToIntDef(Edit18.Text, 0);

  Sum1 := Sum1 + Sum2;

  IntToStr(Edit1.Text, 0) := Sum1;
  IntToStr(Edit2.Text, 0) := Sum1;
  IntToStr(Edit3.Text, 0) := Sum1;
  IntToStr(Edit4.Text, 0) := Sum1;
  IntToStr(Edit5.Text, 0) := Sum1;
  IntToStr(Edit6.Text, 0) := Sum1;
  IntToStr(Edit7.Text, 0) := Sum1;
  IntToStr(Edit8.Text, 0) := Sum1;
  IntToStr(Edit9.Text, 0) := Sum1;
end;