Определить вид четырехугольника

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button1->Caption="Нарисовать";
Button2->Caption="Проверить";
Label1->Caption="точка 1";
Label2->Caption="точка 2";
Label3->Caption="точка 3";
Label4->Caption="Точка 4";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
PaintBox1->Canvas->MoveTo(StrToInt(Edit1->Text),StrToInt(Edit2->Text));
PaintBox1->Canvas->LineTo(StrToInt(Edit4->Text),StrToInt(Edit3->Text));
PaintBox1->Canvas->MoveTo(StrToInt(Edit1->Text),StrToInt(Edit2->Text));
PaintBox1->Canvas->LineTo(StrToInt(Edit5->Text),StrToInt(Edit6->Text));
PaintBox1->Canvas->MoveTo(StrToInt(Edit7->Text),StrToInt(Edit8->Text));
PaintBox1->Canvas->LineTo(StrToInt(Edit5->Text),StrToInt(Edit6->Text));
PaintBox1->Canvas->MoveTo(StrToInt(Edit7->Text),StrToInt(Edit8->Text));
PaintBox1->Canvas->LineTo(StrToInt(Edit4->Text),StrToInt(Edit3->Text));
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int x1,x2,x3,x4,y1,y2,y3,y4;
float l1,l2,l3,l4;
PaintBox1->Canvas->Refresh();
x1=StrToInt(Edit5->Text);;
x2=StrToInt(Edit1->Text);
x3=StrToInt(Edit4->Text);
x4=StrToInt(Edit7->Text);
y1=StrToInt(Edit6->Text);
y2=StrToInt(Edit2->Text);
y3=StrToInt(Edit3->Text);
y4=StrToInt(Edit8->Text);
l1=sqrt((x2-x1)^2+(y2-y1)^2);
l2=sqrt((x4-x1)^2+(y4-y1)^2);
l3=sqrt((x4-x1)^2+(y4-y1)^2);
l4=sqrt((x4-x1)^2+(y4-y1)^2);
if (l1==l2 && l2==l3 && l3==l4) Memo1->Lines->Add("Это квадрат или ромб");
// И попер дальше по признакам
}
//---------------------------------------------------------------------------