1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var
  MyImage: array[0..300] of TImage;
...
procedure TFrame2.getTexture();
var
  i,t,l,q:Integer;
begin
  t := 0;
  l := 0;
  q := 0;
  for i := 1 to 300 do
  begin;
    inc(q);
    MyImage[i] := TImage.Create(Frame2);
    MyImage[i].width := 32;
    MyImage[i].Height := 32;
    MyImage[i].Left := l;
    MyImage[i].Top := t;
    MyImage[i].Visible := True;
    MyImage[i].Picture.BitMap.LoadFromFile(ExtractFilePath(Application.ExeName)+'gfx\map\70.bmp');
    label1.Caption := Format('%d/%d/%d/%d/%d',[q,MyImage[i].Left,MyImage[i].Top,MyImage[i].width,MyImage[i].Height]);
    t := t+32;
    if not (l = (480-32)) then
    begin
      if (t >= (640-32)) then begin t := 0; l := l+32; end;
    end;
  end;
end;					

1:

MyImage[i].Parent := Frame2;