Cette variable permet de savoir si une coordonnées placée dans une variable de type TPoint se trouve dans dans la surface définie par une variable de type TRect.

var
  position: TPoint;
  surface: TRect;

begin
  position.X := 15;
  position.Y := 25;
  surface := Rect(10,20,200,50);
 
  if PtInRect(surface,positiont) then
    begin
      showmessage('le point est dans la surface');
    end;
end;