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

[Auron]

Доброго времени суток есть вопрос. У вывожу треугольник с заданными координатами через канву и мне нужно решить такие вопросы :
1. Расстояние от точки до прямой
2. Проверка условия, что точка лежит внутри треугольника.
Прост горит курсяк.Заранее Спасибо

Вот код Вывода:

procedure TForm1.treygolnik;
var
a1,a2,b1,b2,c1,c2 : integer;
begin
a1 := StrToInt(Edit1.Text);
a2 := StrToInt(Edit2.Text);
 
b1 := StrToInt(Edit3.Text);
b2 := StrToInt(Edit4.Text);
 
c1 := StrToInt(Edit5.Text);
c2 := StrToInt(Edit6.Text);
 
Canvas.MoveTo(a1,a2);
Canvas.LineTo(b1,b2);
Canvas.LineTo(c1,c2);
Canvas.LineTo(a1,a2);
 
end

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.