本程序设计界面如下，请阅读程序写出结果：
“检测”（Button1）按钮的事件处理程序。
procedure TForm1.Button1Click(Sender: TObject);
var
R: Real;
begin
R := StrToFloat(Edit1.Text);
if R <0.5 then Edit2.Text := .输入有误.
else
if Abs(R - 10.0) <= 0.5 then
Edit2.Text := .检测为合格品.
else
Edit2.Text := .检测为废品.;
end;
当用户在edit1中输入一个数值10.39，然后按“检测”（Button1）按钮，在edit2中显示结果为 。
A、10.3
B、输入有误
C、检测为合格品
D、检测为废品

---