Declaration:  GetPoint(Var X: Double; Var Y: Double; Hint: String): Integer;
GetPoint prompts the user to select a point by clicking on the active plan, the returns the point coordinates in X and Y .

If the user clicks a valid point, the result is 1 (True), otherwise the result is 0 (False).

Source Code:

var
  x, y: double;

begin
  if getpoint(x,y, 'Click a point') = 1 then
    showmessage('Clicked at ' + floattostr(x) + ', ' + floattostr(y))
  else
    showmessage('Canceled');
end;