ПРОЦЕДУРА НАЖАТИЕ КНОПКИ «СЛОЖЕНИЕ»
begin
if Edit1.Text<>'' then begin если Edit1.text не пустое тогда
a:=strtofloat(Edit1.Text); присваеваем переменной «а» значение Эдит1 переведённое из строковой в переменную с плавающей запятой в противном случае выводится «введите значение»
Edit1.Text:=''; Очищаем эдит1
ch:='+'; сохраняем код операции
end else
ShowMessage('Введите значение!');
end;