Код:
var
px, py : byte;
img : array [0..80] of TImage;
begin
For px := 0 to 10 do
For py := 0 to 8 do
begin
img[(px*10+py)].Create(self);
img[(px*10+py)].Picture.Graphic := Image1.picture.graphic;
img[(px*10+py)].Left := px*128;
img[(px*10+py)].Top := py*128;
end;
Этот код должен заполнить форму 80 имаджами!
Лучше учить OpenGL и DirectX!
Т.к. мерцает все!