Вычисление по знакам из edit - Delphi - Ответ 6670259

procedure TForm1.Button1Click(Sender: TObject);
const
  n = 10; // Кол-во Label
var
  i: Integer;
  Res: Real;
  Num: String;
  Calc: Char;
begin
  i := 1;
  Res := 0;
  Calc := #0;
  Num := (FindComponent('Label' + IntToStr(i)) as TLabel).Caption;
 
  while True do
  begin
    if (i < n) and ((FindComponent('Edit' + IntToStr(i)) as TEdit).Text = '') then
      Num := Num + (FindComponent('Label' + IntToStr(i+1)) as TLabel).Caption
    else
    begin
      case Calc of
        '+': Res := Res + StrToInt(Num);
        '-': Res := Res - StrToInt(Num);
        '*': Res := Res * StrToInt(Num);
        '/': Res := Res / StrToInt(Num);
        else Res := StrToInt(Num);
      end;
 
      if i = n then Break;
 
      Num := (FindComponent('Label' + IntToStr(i+1)) as TLabel).Caption;
      Calc := (FindComponent('Edit' + IntToStr(i)) as TEdit).Text[1];
    end;
 
    inc(i);
  end;
 
  ShowMessage(FloatToStr(Res));
end;