Как прикрутить переменную к объекту?

[Assassin.Snake]

Есть объект image от 1-20 (image1, image2, image3 ...)
И есть переменная "sh" которая прибаляет к себе каждый раз 1 при нажатии кнопки Ответ.
Тоесть примерно так выгледит код:

sh = sh + 1
image1.Picture = LoadPicture("Image/Green_Point.gif")

Мне надо сделать так что бы не нужно было писать:
if sh = 1 then
image1.Picture = LoadPicture("Image/Green_Point.gif")
elseif sh = 2 then
image2.Picture = LoadPicture("Image/Green_Point.gif")
elseif sh = 3 then
image3.Picture = LoadPicture("Image/Green_Point.gif")
...
end if

Пробывал сделать так:
image(sh).Picture = LoadPicture("Image/Green_Point.gif") - Не работает

Вообщем нужно сделать так что бы картинка в image грузилась в нужный image в зависимости от числа переменной "sh"

Помогите плиз. Кто чем может

[SSecurity]

первый вариант:
когда создаешь Image1
выделяешь его, жмешь Ctrl+C и сразу Ctrl+V, в впадающем окне жмешь "ОК" (создать массив компонентов) и радуешься жизни

у тебя получится
image1(0)
image1(1)
image1(2)
...
image1(20)

ну и обращаешься к ним:
Set image1(sh).Picture = LoadPicture(...)


вариант 2 - оббегаешь по массиву form.controls в поиске image и выполняешь с ним нужную операцию.

[Sedge]

Используй массив элементов управления.
На форме создаешь несколько image с одинаковым наименованием, допустим imgShow. Когда будет создавать второй, ИДЕ тебя спросит, хочешь ли организовать массив. Отвечаешь "да" и после этого получаешь возможность обращаться к различным элементам массива по индексу (типа imgShow(1), imgShow(2) и т.д.)

[Assassin.Snake]

Большое спасибо. Работает