var x, y, z:real;
begin
x:= StrToFloat(Edit1.Text);
y:= StrToFloat(Edit2.Text);
if ComboBox1.Text='Додавання'=true
Then z:=x+y
else if ComboBox1.Text='Віднімання'=true
Then begin z:=x-y
end;
if ComboBox1.Text='Ділення'
Then begin z:=x/y;
if y=0
Then ShowMessage ='Вираз значень не має'
Label2.Caption:=FloatToStr(z);
end;
end;
end.
в чем ошибка