Source position: line 0
function Distance(
PT1: TPoint;
Pt2: TPoint
):Extended; overload;function Distance(
Pt: TFloatPoint;
SP: TFloatPoint;
EP: TFloatPoint
):Extended; overload;