не могу додумать код...

[DIgorevich]

Я не себя имел ввиду... просто помни о тех, кто тебе помогает и старайся прислушиваться к советам более опытных.

[Coder01]

DIgorevich, классный код! а чтобы допустим модернизировать:
клик по i-ой кнопке - i-ое изображение появляется, все остальные изображения исчезают. Как это сделать?

[DIgorevich]

по нажатию кнопки сначала делаешь цикл и скрываешь все изображения, а потом уже отображаешь нужное:

for i:=0 to 10 do
  TImage(components[i]).Visible:=false;
i:=(sender as TButton).Tag;
TImage(components[i]).Visible:=True;

Но помните, что этот код получает доступ к компонентам, по номеру компонента (поэтому я и создавал сначала Imаg'ы, а потом кнопки).