Написать программу решения квадратного уравнения с помощью ООП

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    edt1: TEdit;
    lbl3: TLabel;
    edt2: TEdit;
    lbl4: TLabel;
    edt3: TEdit;
    lbl5: TLabel;
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,c,x,x1,x2,d:Real;
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  a := StrToFloat(edt1.text);
  b := StrToFloat(edt2.text);
  c := StrToFloat(edt3.text);
 
  if a<>0 then  begin
 d:=Sqr(b)-4*a*c;
 
 if d<0 then
 MessageDlg('Действительных корней нет',mtInformation,[mbOK],0);
 
 if d=0 then    begin
 x := -b/(2*a);
 lbl5.Caption := 'x = ' + FloatToStr(x);   end;
 
 if d>0 then
 begin
 x1 := (-b-sqrt(d))/(2*a);
 x2 := (-b+sqrt(d))/(2*a);
 lbl5.Caption := 'x1 = ' + FloatToStr(x1) + chr(13) + 'x2 = ' + FloatToStr(x2);
 end
end else
MessageDlg('Корни вычислить нельзя',mtInformation,[mbOK],0);
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
Form1.Close;
end;
 
end.

type
Tsq=class
  private
     a,b,c:Real;
     function raschet:string;
  public
     constructor create;
     property Pa:real write a;
     property Pb:real write b;
     property Pc:real write c;
     property resultSq:string read raschet;
end;
...........................
constructor Tsq.create;
begin
a:=0;
b:=0;
c:=0;
end;
 
function Tsq.raschet:string;
var x,x1,x2,d:real;
begin
result:='';
x:=0;
x1:=0;
x2:=0;
d:=0;
 
if a<>0 then  begin
 d:=Sqr(b)-4*a*c;
 
if d<0 then begin
 MessageDlg('Действительных корней нет',mtInformation,[mbOK],0);
 exit;
end;
if d=0 then    begin
 x := -b/(2*a);
 result := 'x = ' + FloatToStr(x);
end;
 
 x1 := (-b-sqrt(d))/(2*a);
 x2 := (-b+sqrt(d))/(2*a);
 result := 'x1 = ' + FloatToStr(x1) + chr(13) + 'x2 = ' + FloatToStr(x2);
end else
  MessageDlg('Корни вычислить нельзя',mtInformation,[mbOK],0);
end;

procedure TForm1.Button2Click(Sender: TObject);
var sq:Tsq;
begin
sq:=Tsq.create;
sq.Pa:=2;
sq.Pb:=5;
sq.Pc:=3;
Label1.Caption:=sq.resultSq;
end;