如图红圈红线所示，run的时候提示有两个语法错误，请强人指点一二，谢谢。

补充代码如下：
dec a,b,c,x1,x2,f,delta //声明a,b,c和两个根x1，x2
a=dec(sle_1.text) //a获得输入值
b=dec(sle_2.text) //b获得输入值
c=dec(sle_3.text) //c获得输入值
delta=b*b - 4*a*c //给delta定义值
f=dec(sqrt(delta))
if delta>=0 then //判断delta值，并计算x1，x2的值
x1=(-b+f)/2*a
x2=(-b - f)/2*a
sle_4.text=string(x1)
sle_5.text=string(x2)
else
messagebox("错误","方程没有实根",question!,ok!)

非常感谢wjcayh，谢谢你帮助我。

就是缺少了end if 语句了。谢谢。