Lass Dir einfach die Komponentennamen ausgeben: Schmeiss ein Memo auf die Form und dann
Delphi-Quellcode:
For i:=0 to ComponentCount-1 do
Memo1.lines.add(Format('%3d: %s',[i,Components[i].Name]));
Dann wirst du es verstehen.
Alternativ geht es so:
Delphi-Quellcode:
Var
ShapeComponent : TComponent;
For i:=1 to YourShapeCount do Begin
ShapeComponent := FindComponent(Format('shpHeader%d',[i]));
If Assigned (ShapeComponent) And (ShapeComponent is TShape) Then
TShape (ShapeComponent).Color := YourColor;
Die Methode 'FindComponent' sucht die Komponente mit dem angegeben Namen.