Вивчаємо Кнопку, Напис та Поле

Проекту із використанням Кнопок, Написів, Полів

В Лазарусі я використав такі функції:

procedure TForm1.Button1Click(Sender: TObject); var x,y,s:real; begin x:=StrToFloat(edit1.text); y:=StrToFloat(edit2.text); s:=x+y; edit3.Text:=FloatToStr(s); end;