PointAtDistance function
function PointAtDistance(Const AFrom, ATo: TPoint; Const ADist: Single): TPoint;
Unit
TeCanvas
Description
Given a line containing AFrom and ATo points, this function calculates a new point in the line that has the specified ADist distance from ATo point.