Sind die Rechtecke Nummeriert (Beispiel: shape1, shape2, shape3...)?
Dann könntest du eventuell folgendes machen, aber ich weiß nicht wie lange das dauert:
(Kommt natürlich auf den Rechner an, wie lange er braucht)
Code:
for i := 1 to 5500 do
TShape(FindComponent('Shape' + i));
end;
Shape musst du natürlich ersetzen.