Суммирование нескольких edit-ов

for i := min to max do summ := summ + floatToStr(edit[i]);

procedure TForm3.Button1Click(Sender: TObject);
 var
  i, i2 : Integer;
begin
  i2 := 0;
  for i:=16 to 27 do
  if Components[i] is TEdit then Inc(i2, StrToIntDef(TEdit(Components[i]).text, 0));
  edit4.Text:=intToStr(i2);
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
summ:double; //Сумма. Дробное число.
i:integer; //Счетчик цикла
begin
summ:=0; //Обнуляем сумму в начале. Можно и не делать, но так принято.
 
//Начало цикла. От 1 до 3 выполняем
for i:=1 to 3 do
begin
summ:=summ+strtofloat(TEdit(Components[i]).Text); //Сумма=сумма+СтрокуВЧисло(Номер эдита)
end;
memo1.lines.Add(floattostr(summ)); //Отобразить значение суммы в поле мемо. Мемо1.Строки.Добавить(ДробноеЧислоВСтроку(сумма))
end;

procedure TForm1.mTvleliClick(Sender: TObject);
var
summ:double; //Сумма. Дробное число.
i:integer; //Счетчик цикла
begin
summ:=0; //Обнуляем сумму в начале. Можно и не делать, но так принято.
 
//Начало цикла. От 1 до 3 выполняем
for i:=1 to 4 do
begin
summ:=summ+strtofloat(TEdit(Components[i]).Text); 
end;
//memo1.lines.Add(floattostr(summ));
 
edit4.Text:=(floattostr(summ));
end;

for i := 0 to ComponentCount-1 do

if (components[i] is TEdit)
and (TryStrToFloat((components[i] as TEdit).Text),a))
then s := s + a;

procedure TForm1.Button1Click(Sender: TObject);
var
mas:array[4..39] of TEdit;
i:Integer;
s:double;
begin
s := 0;
for i := 16 to 27 do
    if mas[i].Text <> '' then s := s + StrToFloat(mas[i].Text);
for i := 28 to 39 do
    if mas[i].Text <> '' then s := s + StrToFloat(mas[i].Text);
 
ShowMessage('S=' + FLoatToStr(s));
end;

procedure TForm3.Button3Click(Sender: TObject);
 var
mas:array[4..39] of TEdit;
i:Integer;
s,a:double;
begin
s := 0;
a := 0;
for i := 4 to 27 do
    if mas[i].Text <> '' then s := s + StrToFloat(mas[i].Text);
for i := 28 to 39 do
    if mas[i].Text <> '' then a := a + StrToFloat(mas[i].Text);
 
//ShowMessage('S=' + FLoatToStr(s));
edit2.Text:=('S=' + FLoatToStr(s));
edit3.Text:=('a=' + FLoatToStr(a));
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
mas:array[1..10] of TEdit;
i:Integer;
s:double;
begin
s := 0;
for i := 1 to 10 do
    if mas[i].Text <> '' then s := s + StrToFloat(mas[i].Text);
//for i := 28 to 39 do
   // if mas[i].Text <> '' then s := s + StrToFloat(mas[i].Text);
ShowMessage('S=' + FLoatToStr(s));
end;