Помогите доделать программу для решения квадратных уравнений на Delphi

[CHeGIVaRO]

Вот мой код, он он практически не работает. Знаю код позорб но я только учусь.Внизу прикреплён исходник.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c,x1,x2,d:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:= StrToFloat (Edit1.Text);
b:= StrToFloat (Edit2.Text);
c:= StrToFloat (Edit3.Text);

d:= b*b-4*a*c;
if d<0 then
Panel1.Caption:='Уравнение не имеет корней'
else
begin
x1:= (-b + Sqrt(d))/(2*a);
x2:= (-b - Sqrt(d))/(2*a);
if d>0 then begin

Panel1.Caption:= 'Уравнение имеет 2 корня';
Panel2.Caption:= FloatToStr (x1);
Panel3.Caption:= FloatToStr (x2);

end;
end;
 end;
end.

[type_Oleg]

У вас не предусмотрен случай, когда 1 корень, то есть 2 одинаковых корня.
Если этот случай не надо как то объявлять, то лучше так

var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,x1,x2,d:real;
begin
 a:= StrToFloat (Edit1.Text);
 b:= StrToFloat (Edit2.Text);
 c:= StrToFloat (Edit3.Text);
 d:= b*b-4*a*c;
 if d<0 then
  begin
   Panel1.Caption:='Корни комплексные' ;
   Exit;
  end;
 x1:= (-b + Sqrt(d))/(2*a);
 x2:= (-b - Sqrt(d))/(2*a);
 Panel1.Caption:='Корни действительные' ;
 Panel2.Caption:= FloatToStr (x1);
 Panel3.Caption:= FloatToStr (x2);
end;
end.