Declaration:  DistanceBetweenPoints(p1X, p1Y, p2X, p2Y: Double): Double;
Returns the distance between 2 points specified by p1 and p2 coordinates.

Source Code:

Result := DistanceBetweenPoints(10, 10, 100, 100);