Как написать программу «Калькулятор»

var
  i,p,r:real; //они будут сохранять числа введенные пользователем
  mode:integer; //режим калькулятора (умножить, разделить и т.д)

procedure TForm1.ButtonMinusClick(Sender: TObject);
begin
i:=StrToFloat(Panel1.Caption);
mode:=2;
Panel1.Caption:='';
end;

procedure TForm1.ButtonDivClick(Sender: TObject);
begin
i:=StrToFloat(Panel1.Caption);
mode:=3;
Panel1.Caption:='';
end;

procedure TForm1.ButtonMultiplyClick(Sender: TObject);
begin
i:=StrToFloat(Panel1.Caption);
mode:=4;
Panel1.Caption:='';
end;

procedure TForm1.ButtonPowerClick(Sender: TObject);
begin
i:=StrToFloat(Panel2.Caption);
mode:=5;
Panel2.Caption:='';
end;
Кратко поясню что мы сделали. При нажатии на кнопку мы сохраняем значения введенного числа в переменной I, затем переменной mode присвоем значения действия. Теперь у нас есть все необходимые знания для обработки события OnClick для кнопки со значением "=".

Ниже проведен код для этого действия:

procedure TForm1.ButtonClick(Sender: TObject);
begin
case mode of
1:begin
   p:=StrToFloat(Panel1.Caption);
   r:=i+p;
   Panel1.Caption:=FloatToStr(r);
  end;
2:begin
   p:=StrToFloat(Panel1.Caption);
   r:=i-p;
   Panel1.Caption:=FloatToStr(r);
  end;
3:begin
   p:=StrToFloat(Panel1.Caption);
   r:=i/p;
   Panel1.Caption:=FloatToStr(r);
  end;
4:begin
   p:=StrToFloat(Panel1.Caption);
   r:=i*p;
   Panel1.Caption:=FloatToStr(r);
  end;
5:begin
   p:=StrToFloat(Panel1.Caption);
   r:=Power(i,p);
   Panel1.Caption:=FloatToStr(r);
end;
end;
end;