TImage32.Tile

procedure Tile(newWidth, newHeight: integer; style: TTileFillStyle = tfsRepeat);


uses Image32, Image32_png;
...
var
  img: TImge32;
begin
  img := TImge32.Create;
  img.LoadFromFile('.\tile_16.png');
  img.Tile(256, 256);
  img.SaveToFile('.\tile_256.png');
end;
      

See Also

TTileFillStyle