Mostrar cada imagen de un Array of TImage.

[rauros]

Saludillos a todos, a ver si alguien me puede ayudar. He hecho como un mapa (para un juego) con TImage, pero en vez de ponerlo entero lo he partido en 25 partes para tener que encontrarlas. Entonces he hecho un Array [1..25] of TImage y el código es este:

Código Delphi [-]
//Mapa: Array [1..25] of TImage;

Var
I,x,y: Integer;
Begin
  X:=0;
  y:=0;
  For I:=1 to 25 Do
  Begin
    Mapa[i]:=Timage.Create(Form1);
    Mapa[i].Picture.LoadFromFile('Trozo ' + IntToStr(i) + '.bmp');
    Mapa[i].Visible:=true;
    //Mapa[i].Show;
    Mapa[i].Left:=y;
    Mapa[i].Top:=x;
    y:=y + 480;
    If Y = 480 * 5 then
    Begin
      X:=x + 320;
      Y:=0;
    End;
  End;
End;

Cada imagen mide 480 por 320, y hay 5 trozos por 5 trozos. El problema es que no aparece ninguna imagen, supongo que por no crear correctamente las imágenes. No hay ningún error/warning/hint al correr la aplicación.

PD: Las imágenes las destruyo al cerrar la aplicación.

[roman]

Creo que lo que te falta es asignarle padre al control:

Código Delphi [-]
Mapa[i].Parent := Self;

// Saludos