Помогите с ЦИКЛАМИ

[kl45gp]

Огромное спосибо! Всё ок!

Я зделал так

....
shape : array [1..5] of TShape;
......

shape[1]:=shape1;
shape[2]:=shape2;
shape[3]:=shape3;
shape[4]:=shape4;
shape[5]:=shape5;
........
procedure TForm1.......;
var i : integer;
begin
for i:= 1 to 5 do begin
shape[i].width:=10;

end;
end;

Это конечно не мой код(он будет помощнее), но смысл тодже

[SERG1980]

массив панелей
var avtomat: array [1..10] of TPanel;
for icnf:=1 to 10 do
begin
avtomat[icnf]:=TPanel.Create(Self);
avtomat[icnf].Parent:=form1;
avtomat[icnf].Width:=10;
avtomat[icnf].Height:=10;
avtomat[icnf].BevelOuter:=bvraised;
avtomat[icnf].BevelWidth:=3;
avtomat[icnf].Top:=40;
avtomat[icnf].Left:=avtomat[icnf].Width+5;
avtomat[icnf].Color:=cllime;
end;