用delphi编写求一元二次方程（b*b-4*a*c）<0的虚根的方程

只要求解按钮里的代码望各位高手帮忙谢谢劳驾帮忙编一下，百度没有希望实际一点的编程，简单一点没关系

只求虚根，所以前提条件是△<0 参数 a Edit1参数 b Edit2参数 c Edit3 答案显示区 Label4************[求解]按钮代码如下：****************************************procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: double;
x1,x2: string;
begin
a := StrToFloat(Trim(Edit1.Text ));
b := StrToFloat(Trim(Edit2.Text ));
c := StrToFloat(Trim(Edit3.Text )); Label4.Font.Size := 16;
x1 := FloatToStr(-b/(2*a)) + ' + ' + FloatToStr(Sqrt(-(b*b - 4*a*c))/(2*a)) + 'i';
x2 := FloatToStr(-b/(2*a)) + ' - ' + FloatToStr(Sqrt(-(b*b - 4*a*c))/(2*a)) + 'i';
Label4.Caption :='答案显示区：' + #13#13 + 'x1= ' + x1 + #13 + 'x2= ' + x2;
end;

不明白啊 = =！