FindComponent wurde bereits genannt. Suche doch dann nach diesen Stichwörtern, dann würdest du auch eine Lösung finden:
Delphi-Quellcode:
for i := 1 to 40 do
(FindComponent('img' + IntToStr(i)) as TImage).Visible := true;
Deine TImages müssen dann so benannt sein: "img1", "img2", ... ohne führende Nullen.
Der Code macht alle 40 Bilder sichtbar (oder wie viele es beim Monopoly sind).
Grüße