Crear Imagenes en ejecución

[Drake]

De la siguiente forma:

Definir la variable la cual sera un componente TImage

Código Delphi [-]
var
Tiles: TImage;

Creacion dela imagen

Código Delphi [-]
//Crear la imagen y darle las propiedades
        Tiles:= TImage.Create(Tile1); //Imagen de la cual crearemos las demas.
        Tiles.Top:= 0;
        Tiles.Left:= 32;
        Tiles.Width:= 32;
        Tiles.Height:= 32;
        Tiles.Name:= 'Tile'+IntToStr(2); //Nombre de la nueva imagen
        Tiles.Parent:= MapTiles; //Componente que contendra dicha imagen
        Tiles.Canvas.Draw(0,0,tileset1.Picture.Graphic); //por si queremos diujar algo en la imagen

Si queremos crear varios hacemos un bucle y cambiamos:

Código Delphi [-]
Tiles.Name:= 'Tile'+IntToStr(N_imagen); //Donde N_Imagen le ponemos la variable que ira incrementando la cual cada vez que se crea una nueva sera diferente sino nos daria fallo al intentar crear un componentecon el mismo nombre

Pos todo listo un saludo y gracias.