Source position: graphmath.pp line 80
function LineEndPoint(
StartPoint: TPoint;
Angle: Extended;
Length: Extended
):TPoint;