[ecfisa]

Hola blackterfly.

Creo que es mas versátil usar TObjectList en lugar de un arreglo.

Te pongo un ejemplo simple de como podes hacerlo, agrega un TImage y un TButton al form:

...
#include <jpeg.hpp>
...

TObjectList *ObjLst;
int NroImg = 0;   //imágenes cargadas

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

/* Mostrar imágenes cargadas (índice aleatorio) */
void __fastcall TForm1::btnShowImagesClick(TObject *Sender) {
  Image1->Picture = ((TImage*)ObjLst->Items[random(NroImg)])->Picture;
}

/* Liberar memoria al finalizar */
void __fastcall TForm1::FormDestroy(TObject *Sender) {
  ObjLst->Clear();
  delete ObjLst;
}

Saludos.