Crear array de imagenes

[ecfisa]

Hola blackterfly.

Es que en el código anterior cometí una equivocación, la declaración tendría que haber estato fuera del ciclo:

/* Cargar imágenes en ObjectList */
void __fastcall TForm1::FormCreate(TObject *Sender) {
TSearchRec sr;
TImage *Img; // <- Aqui
  randomize();
  Image1->Stretch;  // sólo si deseas ajustar la imágen
  ObjLst = new TObjectList;
  if (FindFirst(path + "*.JPG", faArchive, sr) == 0)
    do {
      Img = new TImage(this);
      Img->Picture->LoadFromFile(path +sr.Name);
      ObjLst->Add(Img);
      NroImg++;
    } while (FindNext(sr) == 0);
}

Por lo que tu código debería ser:

TImage *Img = new TImage(this);
  Img->Picture->LoadFromFile(path +"a.jpg");
  ObjLst->Add(Img);
  Img = new TImage(this);
  Img->Picture->LoadFromFile(path +"aa.jpg");
  ObjLst->Add(Img);

Saludos.