Die einfachste Möglichkeit:
FindComponent benutzen. Oder aber die entsprechenden Komponenten in einer TComponentList oder TObjectList ablegen und dann über diese iterieren, dann kann man sie auch ordentlich benennen, hat aber auch etwas mehr Schreibarbeit.