FindComponentes "TShape faerben"

[aayb]

Hallo zusammen,

ich habe folgendes Problem beim "faerben" meiner Shapes:
Auf der Form liegen 10 Shapes, die mit dem Namen 'shpHeader' anfangen und danach nummeriert sind.
Also simple "shpHeader1", "shpHeader2", ...

Nun wollte ich mir nicht arbeit erleichetern und hab folgenden Code in die FormCreate gepackt:

Delphi-Quellcode:

procedure TfrmMain1.FormCreate(Sender: TObject);
var
  i : integer;
  ShapeName : String;
begin
  for i :=0 to ComponentCount -1 do begin
    ShapeName := 'shpHeader'+IntToStr(i);
    if (Components[i] is TShape) and (Components[i].Name = ShapeName) then
    begin
      TShape(Components[i]).Brush.Color := rgb(100,100,100);
    end;
  end;
end;

Das Problem? Es geht nicht.
Setze ich anstelle des Strings 'ShapeName' innerhalb der for-schleife einen festen Wert (Bspw. 'shpHeader2'), so wird dieser Shape gefaerbt.
Wenn ich nach der zuweisung des 'ShapeName' ein MessageDLG als "Debug" setze, wird mir auch immer der korrekte Name des Shapes zurueck geliefert.

Kann mir evtl einer einen Tip geben, wo mein Denkfehler sitzt?
Besten Dank schonmal

Gr.
aayb