帮帮忙,大家过来看看,有个好题目给大家看看?

Question

如图，这是一个求一元二次方程根的程序，方程的各个系数通过三个文本框来输入，结果在下面的标签中显示出来。程序的界面已经设计完成，你所要做的是完成下面的两个主要过程的代码。其中的“计算器”按钮用来调用WINDOWS98系统自带的计算器。
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
x1,x2,delt:real;
begin
a:=_________________________________;
b:=_________________________________;
c:=_________________________________;
delt:=_______________________________;
if delt<0 then
begin
showmessage('此方程无实数解');
end
else
x1:=_____________________________________;
x2:=______________________________________;
//x1的值：
labelx1.Caption :='x1=:'+______________________;
//x2的值：
labelx2.Caption :='x2=:'+______________________;
end;//按钮2的作用是调用WINDOWS自带的计算器，其文件名为calc.exe
procedure TForm1.Button2Click(Sender: TObject);
begin
shellexecute(handle,_______,“_________________”,______,_________,____________________);
end;