Variable in Shapenamen!

[daNiii]

Hallo!

ich habe ein Programm mit 100 shapes.
Die Shapes tragen den namen: Feld1, Feld2, Feld3 usw.
jetzt möchte bei allen shapes die Farbe ändern.
dazu habe ich folgenden Denkansatz:

procedure form1.Farbe();
var
I: integer
begin

for I := 1 to 100 do begin

Feld+inttostr(I).brush.color:= clblack;

end;

end;


Weis jemand warum das nicht geht?
Und noch besser: weis wer wie man dieses Problem umgehen kann?