GetRect
Prompts the user to click 2 points on the active plan to define a rectangle, then returns the coordinates in p1 and p2.
...
Syntax:
Function: GetRect(Var p1x: double; Var p1y: double; Var p2x: double; Var p2y: double; Hint: String): Integer;
...