Überprüfen ob eine Komponente sich in einem bestimmten Bereich befindet

[snears]

Also gut...
Mehrere Shape-Komponenten bewegen sich auf dem Formular. Da es mir zu viele Shape-Komponenten sind und ich nicht für jede die gleiche Abfrage machen möchte, würde ich gerne nur mit einer einzigen anweisung gleich eine Überprüfung machen die für alle shape-Kompontenen zählt.

Als Bsp.:

Shape1 besitzt die Koordinaten x:= 10
y:= 150

so der x wert verändert sich durch einen timer um 5.
Nun soll eine Überprüfung stattfinden ob sich diese Shape-Komponente in dem Bereich x >= 50 and x<= 150
und y >= 100 and y<= 200
dadurch entsteht ein rechteck (also nur gedanklich nicht, in dem Programm),
so nun gibt es ja die Überprüfung mit

Code:

if (shape1.left >= 50) and (shape1.left <= 150) and shape1.top >= 100) and (shape1.top <= 200) then
begin
// dann kommt hier die anweisung was passieren soll
end;

so aber ich möchte ungern das für 20 shapes machen...
ich möchte den Programmcode so kurz wie möglich halten

ich hoffe ihr versteht mein Problem nun besser