procedure TfmMain.TileMap;
var
  col   : integer;
  row   : integer;
  xpos  : integer;
  ypos  : integer;
  iebmp : TIEBitMap;
begin
  Application.ProcessMessages;

  Screen.Cursor:=crHourGlass;

  try
    iebmp:=TIEBitMap.Create;

    try
      Image.Clear;
      Image.RemoveAllObjects;
      Image.Proc.ImageResize(5120,7680);

      ypos:=0;

      for row:=65 to 100 do
      begin
        xpos:=0;

        for col:=120 to 140 do
        begin
          iebmp:=GrabTile(8,col,row);
          iebmp.RenderToTIEBitmapEx(Image.IEBitmap,xpos,ypos,256,256,0,0,256,256,255,rfNone);
          inc(xpos,256);
        end;

        inc(ypos,256);
      end;

      Image.Fit;
    finally
      iebmp.free;
    end;
  finally
    Screen.Cursor:=crDefault;
  end;
end;