Отображение серии изображений из папки

void __fastcall TForm1::Button1Click(TObject *Sender)
Image1->Picture->LoadFromFile("E:\\1403535.jpg");
Image1->Picture->LoadFromFile("E:\\sun-1008-s-0252.jpg");
}

TStringList *sl = new TStringList();
 
sl->Add( "E:\\1403535.jpg" );
sl->Add( "E:\\sun-1008-s-0252.jpg" );
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
static int count = 0;
Image1->Picture->LoadFromFile( sl->Strings[count++] );
}
 
delete sl;

#include <jpeg.hpp>
...
TStringList *sl = new TStringList;
int i;
...
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   TSearchRec SR;
   String s = "c:\\111\\";
   ChDir(s);
   if(FindFirst("*.jpg",faAnyFile,SR) == 0)
    {
      do
       {
         sl->Add(s + SR.Name);
       }
      while (FindNext(SR) == 0);
      FindClose(SR);
    }
   ChDir(ExtractFilePath(Application->ExeName));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TJPEGImage *jpg = new TJPEGImage;
  if(i == sl->Count - 1) i = 0;
  jpg->LoadFromFile(sl->Strings[i++]);
  Image1->Picture->Assign(jpg);
  delete jpg;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete sl;
}

void __fastcall TForm1::Button1Click( TObject * Sender )
{
    TStringDynArray pics( TDirectory::GetFiles( TEXT( "e:\\" ), TEXT( "*.jpg" ), TSearchOption::soTopDirectoryOnly ) ); 
    
    Image1->Picture->LoadFromFile( pics[ Random( pics.Length ) ] ); 
}

#include <System.IOUtils.hpp>