Много компонентов с общим началом

[delphin100]

Проблема в том что на фирме у меня 72 imagа которые вручную описывать или переименовывать не очень простое занятье.
Во т я и хочу сделать что-то типа

for i:=1 to 72 do 
 image[i].left:=image[i-1]+10;

Подскажите как работать с такими случаями (если можно) и желательно в общем если код для left например и height разный.

[mihali4]

Нет, готовый код не дам - нужно развивать свою "думалку".
А вот натолкнуть - пожалуйста:

var i: integer;
    mycomp: TComponent;
begin
for i:=0 to ComponentCount-1 do
begin
if Components[i] is TImage then
begin
ShowMessage(Components[i].Name);
(Components[i] as TImage).Height:=50;
end;
end;
end;

[fbus]

var i:integer;
    for i:=1 to 72 do
      FindComponent('image'+inttostr(i)).Left:=0;

[soleil@mmc]

Сообщение от fbus

var i:integer;
    for i:=1 to 72 do
      FindComponent('image'+inttostr(i)).Left:=0;

а кто сказал, что их имена остались дефолтными?

[SibBear]

Имиджи созданы ручками или создаются програмно?
Посмотри пример, может то, что тебе нужно.
Там програмное создание имиджа с заданными параметрами и функцией onClick.

[maladoy]

а кто сказал, что их имена остались дефолтными?

тс и сказал

  image[i].left:=image[i-1]+10;

[delphin100]

Всем огромное спасибо, я во всём разобрался.