// сложение
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c: real;
begin
  a:=strToFloat(Edit1.Text);
  b:=strToFloat(Edit2.Text);
  c:=a+b;
  Edit3.Text:=FloatTostr(c);
end;
 
// Вычитание:
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c: real;
begin
  a:=strToFloat(Edit1.Text);
  b:=strToFloat(Edit2.Text);
  c:=a-b;
  Edit3.Text:=FloatTostr(c);
end;
 
// Умножение:
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c: real;
begin
  a:=strToFloat(Edit1.Text);
  b:=strToFloat(Edit2.Text);
  c:=a*b;
  Edit3.Text:=FloatTostr(c);
end;
 
// Деление:
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c: real;
begin
  a:=strToFloat(Edit1.Text);
  b:=strToFloat(Edit2.Text);
  c:=a/b;
  Edit3.Text:=FloatTostr(c);
end;