Вычисление по знакам из edit

procedure TForm1.Button1Click(Sender: TObject);
begin
 
if edit1.Text='*' then a:=strtofloat(label2.Caption)*strtofloat(label1.Caption);
if edit1.Text='/' then a:=strtofloat(label2.Caption)/strtofloat(label1.Caption);
if edit2.Text='/' then a:=a/(strtofloat(label3.Caption));
if edit2.Text='*' then a:=strtofloat(label3.Caption)*a;
if edit3.Text='/' then a:=a/strtofloat(label4.Caption);
if edit3.Text='*' then a:=a*strtofloat(label4.Caption);
if edit4.Text='/' then a:=a/strtoint(label5.Caption);
if edit4.Text='*' then a:=strtoint(label5.Caption)*a;
if edit5.Text='/' then a:=a/strtoint(label6.Caption);
if edit5.Text='*' then a:=strtoint(label6.Caption)*a;
if edit6.Text='/' then a:=a/strtoint(label7.Caption);
if edit6.Text='*' then a:=strtoint(label7.Caption)*a;
if edit7.Text='/' then a:=a/strtoint(label8.Caption);
if edit7.Text='*' then a:=strtoint(label8.Caption)*a;
if edit8.Text='/' then a:=a/strtoint(label9.Caption);
if edit8.Text='*' then a:=strtoint(label9.Caption)*a;
if edit9.Text='/' then a:=a/strtoint(label10.Caption);
if edit9.Text='*' then a:=strtoint(label10.Caption)*a;
edit10.Text:=floattostr(a);
Memo1.Lines.add(label2.Caption+Edit1.Text+Label1.Caption+edit2.Text+Label3.Caption+edit3.Text+Label4.Caption+edit4.Text+Label5.Caption+edit5.Text+Label6.Caption+edit6.Text+Label7.Caption+edit7.Text+Label8.Caption+edit8.Text+Label9.Caption+edit9.Text+Label10.Caption+label11.Caption+edit10.Text);
end;

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;