Unit Unit1;

interface

uses System, System.Drawing, System.Windows.Forms, unit2;

type
Form1 = class(Form)//После слова class в скобках может быть указано имя класса-предка
procedure label1_Click(sender: Object; e: EventArgs);
procedure distBut_Click(sender: Object; e: EventArgs);
procedure sqBut_Click(sender: Object; e: EventArgs);
procedure button1_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Unit1.Form1.resources}
distBut: Button;
x1tbox: TextBox;
y1tbox: TextBox;
x2tbox: TextBox;
y2tbox: TextBox;
x3tbox: TextBox;
y3tbox: TextBox;
dist1tbox: TextBox;
dist3tbox: TextBox;
dist2tbox: TextBox;
sqtbox: TextBox;
sqBut: Button;
label2: &Label;
label3: &Label;
label4: &Label;
label5: &Label;
label6: &Label;
label7: &Label;
label8: &Label;
button1: Button;
label1: &Label;
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;

implementation

procedure Form1.label1_Click(sender: Object; e: EventArgs);
begin

end;

procedure Form1.distBut_Click(sender: Object; e: EventArgs); //расстояние
var
m: Model;
begin
try
m := new Model(strToInt(x1tbox.Text), strToInt(y1tbox.Text), strToInt(x2tbox.Text), strToInt(y2tbox.Text), strToInt(x3tbox.Text), strToInt(y3tbox.Text));
dist1tbox.Text := floatToStr(m.getSides[1]);
dist2tbox.Text := floatToStr(m.getSides[2]);
dist3tbox.Text := floatToStr(m.getSides[3]);
except
on system.FormatException do messageBox.Show('Ошибка ввода');
end;
end;

procedure Form1.sqBut_Click(sender: Object; e: EventArgs); //Площадь
var
m: Model;
begin
try
m := new Model(strToInt(x1tbox.Text), strToInt(y1tbox.Text), strToInt(x2tbox.Text), strToInt(y2tbox.Text), strToInt(x3tbox.Text), strToInt(y3tbox.Text));
sqtbox.Text := floatToStr(m.getSq);
except
on system.FormatException do messageBox.Show('Ошибка ввода');
end;
end;

procedure Form1.button1_Click(sender: Object; e: EventArgs); //Выход
begin
halt;
end;

end.

Код который Вы предоставили(с точки зрения Delphi, не Pascal), это описание класса.
Потомок класса Form1 = class(Form) - наследует всё, что есть в классе Form.
Описаниями: procedure и Имя:Класс(с точки зрения ОСи Windows) Вы определяете методы и свойства данного класса. Правда нужно ещё посмотреть на всякие там include ну и т.д.

Данный код, когда используется в программе считает растояние между координатами двух кликов мыша, и площадь по сторонам(см. растояние выше) трех кликов мыша.
Удачи!

Вопрос перенесен в нужную ветку.

Вопросы по Делфи ЗАДАВАЙТЕ в нужный раздел.

Обратите внимание на этот вопрос.