Delphi/Lazarus: ¿Esta un punto (TPoint) dentro o fuera de un rectángulo (TRect)?

Problema: Nos gustaría saber si un punto con coordenadas X e Y se encuentra dentro de un rectángulo (TRect) o no.

Respuesta: Afortunadamente, Delphi así como Lazarus están proporcionando una función para esto, para que no tengamos que comparar las coordenadas manualmente. La función se llama PtInRect().

Ejemplo: Echemos un vistazo a un ejemplo para PtInRect():

var
   R: TRect;
   P1, P2: TPoint;
begin
   R:=Rect(10, 10, 100, 100);
   P1:=Point(0, 0);
   P2:=Point(50, 50);

   if PtInRect(R, P1) then showmessage('P1 está en R!');
   if PTInRect(R, P2) then showmessage('P2 está en R!');
end;

En primer lugar, definimos un rectángulo R y dos puntos P1 y P2, uno ubicado dentro del rectángulo, el otro no. Después de eso, probamos con PtInRect, si los puntos están acostados dentro del rectángulo. P1 no debe estar en el rectángulo, P2 debería.