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;