Declaration:  DistanceFromLine(p1x, p1y, p2x, p2y, p3x, p3y: Double): Double;
Returns the distance of a point given by p3 is from a line, given by p1 and p2.

Source Code:

Result := DistanceFromLine(10, 10, 100, 100, 45, 45);