15. Обмін даними.

Код до однодієвого калькулятора.

procedure TForm1.Button1Click(Sender: TObject);

var a,b,result:real;

begin

a:= StrToFloat(edit1.Text);

b:= StrToFloat (edit2.Text);

result:=a+b;

edit3.Text:= FloatToStr(result);

end;