Решение квадратного уравнения (разобрать задачу)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,x1,x2,d,x:real;
begin
if (Edit1.Text='')or
   (Edit2.Text='')or
   (Edit3.Text='')then
showmessage('Введены не все параметры уравнения') else
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
memo1.Lines.Add('x1='+FormatFloat('0.##',x1));
memo1.Lines.Add('x2='+FormatFloat('0.##',x2));
end
else
if d=0 then begin
x:=-b/2*a;
memo1.Lines.Add('x='+FormatFloat('0.##',x));
end
else memo1.Lines.Add('нет решений');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
 
Memo1.Clear;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
 var a,b,c,x1,x2,d,x:real; // набор переменных
 begin  //начало :)))
 if (Edit1.Text='')or  //если хотя бы одно поле для ввода пустое, то...
 (Edit2.Text='')or
 (Edit3.Text='')then
 showmessage('Введены не все параметры уравнения') else  //выдать предупреждение, иначе, если там что то введено:
 begin
 a:=StrToFloat(Edit1.Text);  //преобразуем текст из полей ввода в вещественное число (число с плавающей запятой)
 b:=StrToFloat(Edit2.Text);
 c:=StrToFloat(Edit3.Text);
 d:=sqr(b)-4*a*c;  // возводим в квадрат число b перемножаем 4*a*c и вычитаем :)
 if d>0 then  // если (дискриминант походу) больше 0, то
 begin
 x1:=(-b+sqrt(d))/2*a;   // sqrt - корень из числа d и тд. все действия делаем
 x2:=(-b-sqrt(d))/2*a;
 memo1.Lines.Add('x1='+FormatFloat('0.##',x1));  // добавляем в текстовый редактор Memo расчитанные значения, преобразуя вывод значений (FormatFloat)
 memo1.Lines.Add('x2='+FormatFloat('0.##',x2));
 end
 else  //иначе
 if d=0 then begin // если дискриминант =0
 x:=-b/2*a;  // то высчитываем его по другой формуле
 memo1.Lines.Add('x='+FormatFloat('0.##',x));  // опять форматируем текст для вывода в Мемо
 end
 else memo1.Lines.Add('нет решений');  // если нет решения кв. уравнения
 end;
 end;
 procedure TForm1.Button2Click(Sender: TObject);
 begin
 Edit1.Clear;  // очищаем поля ввода
 Edit2.Clear;
 Edit3.Clear;
 
 Memo1.Clear;  // очищаем текстовый редактор
 end;