Declaration:  AngleBetweenPointsUnScaled(p1X, p1Y, p2X, p2Y: Double): Double;
Returns the angle between 2 points given by p1 and p2 coordinates.

Source Code:

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