Загрузка изображений в Image c другой формы

[qwertyk]

Существуют две формы form1 и form2. Главная форма form2, на ней находиться кнопка Button1. На form1 находятся компоненты image1, image2,...,image20. Надо чтобы при нажатии на кнопку button1 открывалась form1 уже с изображениями. Можно конечно вручную для всех image написать form1.image1.picture.loadfromfile(' путь к файлу') и т.д., но получится объёмный код. Можно ли как-то пребразовать код чтобы он выглядел типа:

for i:=1 to 20 do
timage(findcomponent(format('image%d',[i]))).picture.loadfromfile('путь к файлу');

[Stilet]

Примерно так:

 for i:=0 to Controlcounts-1 do
  if Control[i] is TImage then TImage(Controls[i]).picture.loadfromfile('путь к файлу');

[qwertyk]

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

Примерно так:

 for i:=0 to Controlcounts-1 do
  if Control[i] is TImage then TImage(Controls[i]).picture.loadfromfile('путь к файлу');

А можно пояснить что означает Controlcounts и Control?

[asmodey1]

А можно так:

for i:=0 to 20 do
(FindComponent('Image'+IntToStr(i+1)) as TImage).Picture.LoadFromFile(ExtractFilePath(Paramstr(0))+'Pict'+IntToStr(i+1)+'.bmp');

[Stilet]

Это кол-во контролов на форме, и собственно сам "массив" контролов, через который можно добраться к каждому контролу, и проверив его на принадлежность к классу работать с его свойствами не забыв привести к соответствующему типу

[qwertyk]

for i:=0 to Controlcounts-1 do
  if Control[i] is TImage then TImage(Controls[i]).picture.loadfromfile('путь к файлу');

Немного разобрался. Вместо Controlcounts нужнно писать Controlcount и вместо control-controls. А если не во все компоненты Timage надо заргрузить картинки, а например толкоь с 10 по 20 image, как это сделать? И кстати пишет что timages не объявленая переменная, наверно потому что на второй форме нет компонентов timage.
Stilet спасибо за пояснение.