[dixter]

вот ваш код на 81 картинку

Код:

procedure TForm1.FormActivate(Sender: TObject);

var
px, py : byte;
img : array [0..80] of TImage;
begin
For px := 0 to 7 do begin
For py := 0 to 7 do
begin
img[(px*10+py)]:=timage.Create(Form1);
img[(px*10+py)].Parent:=form1;
img[(px*10+py)].Left:=px*128;
img[(px*10+py)].Top:=py*128;
img[(px*10+py)].Width:=128;
img[(px*10+py)].Height:=128;
img[(px*10+py)].Picture.LoadFromFile('Image\1.jpg');
 end;
end;
end;