Hola blackterfly.
Es que en el código anterior cometí una equivocación, la declaración tendría que haber estato fuera del ciclo:
Código:
/* 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:
Código:
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.