Нужно вычислить лежит первый треугольник во втором или второй в первом

unit Unit1;
 
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Button1: TButton;
Edit9: TEdit;
Label14: TLabel;
procedure Button1Click(Sender: TObject);
 
private
{ Private declarations }
public
{ Public declarations }
end;
const t=0.00001;
type Point=record
x,y:real;
end;
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Dlina(a,b:Point):real;
begin
Dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
 
function Plosh(a,b,c:Point):real;
var p:real;
begin
p:=(Dlina(a,b)+Dlina(b,c)+Dlina(a,c))/2;
Plosh:=(sqrt(p*(p-Dlina(a,b))*(p-Dlina(b,c))*(p-Dlina(a,c))));
end;
 
function Proverka(a,b,c,d:Point):boolean;
var s,s1,s2,s3:real;
begin
s:=Plosh(a,b,c);
s1:=Plosh(a,b,d);
s2:=Plosh(a,c,d);
s3:=Plosh(b,c,d);
if abs((s1+s2+s3)-s)<t then Proverka:=true
 
else Proverka:=false;
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d:Point;
begin
a.x:=StrToFloat(Edit1.Text);
a.y:=StrToFloat(Edit2.Text);
b.x:=StrToFloat(Edit3.Text);
b.y:=StrToFloat(Edit4.Text);
c.x:=StrToFloat(Edit5.Text);
c.y:=StrToFloat(Edit6.Text);
 
if Plosh(a,b,c)<t then
begin
Edit9.Text:=('');
exit;
end;
d.x:=StrToFloat(Edit1.Text);
d.y:=StrToFloat(Edit2.Text);
if Proverka(a,b,c,d) then
Edit9.Text:=(' точка D лежит в тр ')
else Edit9.Text:=('точка D не лежит в тр');
 
end;
 
end.