Aber erst, nachdem dessen Name angepasst wurde
. Im Ernst: es gibt viele Möglichkeiten, eine davon wäre z.B.
FindComponent. Eleganter fände ich persönlich es aber, wenn man die dynamisch erstellten Shapes in einer geeigneten Liste verwalten würde, z.B. TObjectList oder gleich TComponentList.