Подключение класса к основной программе

unit Osnov_Prog;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, ClassUnit;
 
type
  TForm1 = class(TForm)
    btnRezul: TButton; // Кнопка по нажатию на которую происходит решение
    Autor: TButton;  // Кнопка по нажатию на которую выводится сообщение
    edAKof: TEdit;  //Коэффициент А
    edBKof: TEdit;  //Коэффициент B
    edCKof: TEdit;  //Коэффициент C
    pnlRezult: TPanel; //Панель на которой выводится результат решения
    { Ниже - надписи для перечисленных выше элементов }
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure btnRezulClick(Sender: TObject);
    procedure AutorClick(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AutorClick(Sender: TObject);
begin
ShowMessage('З.Ы. Первая рабочая программа на Delphi ^_^ ');//Показывает простое диалоговое окно с кнопкой ОК, содержащее заданную строку
end;
 
procedure TForm1.btnRezulClick(Sender: TObject);
 
var
  QuadraticEquation: TQuadraticEquation;
begin
  QuadraticEquation := TQuadraticEquation.Create;
  QuadraticEquation.Pa:=StrToFloat(edAKof.Text);
  QuadraticEquation.Pb:=StrToFloat(edBKof.Text);
  QuadraticEquation.Pc:=StrToFloat(edBKof.Text);
  pnlRezult.Caption := QuadraticEquation.ResultQuadraticEquation;
 
end;
 
end.

unit ClassUnit;
 
interface
 
uses //Oпределяет список одного или более модулей, которые используются текущим модулем, программой или библиотекой
  Dialogs, SysUtils;
 
type
  TQuadraticEquation = 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 ResultQuadraticEquation:string read Raschet;
  end;
 
implementation
 
constructor TQuadraticEquation.Create;
begin
  a := 0;
  b := 0;
  c := 0;
end;
 
function TQuadraticEquation.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
      ShowMessage('Действительных корней нет');
      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 ShowMessage('Корни вычислить нельзя');
end;end.