Создать класс Ttriangle для представления треугольника!

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,math;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Label7: TLabel;
    label8: TLabel;
    btn1: TButton;
    btn2: TButton;
    edt1: TEdit;
    procedure PaintBox1Paint(Sender: TObject);
    function DlinaOtrezka(a,b:tpoint):integer;
    function Ploshad(a,b,c:Tpoint):real;
    procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  countClick:byte=0;
  A,B,C:tpoint;
implementation
 
{$R *.dfm}
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.Brush.Color:=clWhite;
PaintBox1.Canvas.Rectangle(PaintBox1.BoundsRect);
end;
 
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
case countClick of
0:begin a.X:=x; a.Y:=y; label1.Caption:=label1.Caption+' X:'+inttostr(x)+' / Y:'+inttostr(y); end;
1:begin b.X:=x; b.Y:=y; label2.Caption:=label2.Caption+' X:'+inttostr(x)+' / Y:'+inttostr(y); end;
2:begin c.X:=x; c.Y:=y; label7.Caption:=label7.Caption+' X:'+inttostr(c.x)+' / Y:'+inttostr(c.y);end;
end;
inc(countClick);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
edt1.Text:=inttostr(round((sqrt(DlinaOtrezka(a,b))/2)));
C.X:=b.X;
C.y:=a.y;
label3.Caption:=label3.Caption+' '+inttostr(DlinaOtrezka(a,c));
label4.Caption:=label4.Caption+' '+inttostr(DlinaOtrezka(b,c));
label5.Caption:=label5.Caption+' '+inttostr(DlinaOtrezka(a,b));
label6.Caption:=label6.Caption+' '+FloatToStr(Ploshad(a,b,c));
 
PaintBox1.Canvas.Pen.Color:=clBlack;
PaintBox1.Canvas.TextOut(a.X-10,a.Y-5,'A');
PaintBox1.Canvas.MoveTo(a.X,a.Y);
PaintBox1.Canvas.LineTo(b.X,b.Y);
 
PaintBox1.Canvas.TextOut(b.X,b.Y+10,'B');
PaintBox1.Canvas.MoveTo(b.X,b.Y);
PaintBox1.Canvas.LineTo(c.X,c.Y);
 
PaintBox1.Canvas.TextOut(c.X+10,c.Y-5,'C');
PaintBox1.Canvas.MoveTo(c.X,c.Y);
PaintBox1.Canvas.LineTo(a.X,a.Y);
 
ShowMessage('Òðåóãîëüíèê ñîçäàí!');
end;
 
function TForm1.DlinaOtrezka(a, b: tpoint): integer;
begin
result:=round(sqrt(sqr(b.X-a.X)+sqr(b.Y-a.Y)));
end;
 
function TForm1.Ploshad(a, b, c: Tpoint): real;
begin
result:=abs(((a.X-c.X)*(B.y-c.Y)-(b.X-c.X)*(a.Y-c.Y))/2);
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
 Close;
end;
 
procedure TForm1.btn2Click(Sender: TObject);  //удаление обьекта?
begin
 
end;
 
end.