TImage32.Tile

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


 uses Img32, Img32.Fmt.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