Прерывание выполнения функции

WIN32_FIND_DATA FindFileData;

 

  HANDLE hFind;

  AnsiString SubDirList [300];
int i_count=0;








 hFind = FindFirstFile("D:\\1\\SERIAL_JPG\\*.jpg", &FindFileData);


  SubDirList[0] = FindFileData.cFileName;





   

  AnsiString s = "D:\\1\\SERIAL_JPG\\" ;
  AnsiString p = FindFileData.cFileName;
  s = s + p;

 Graphics::TBitmap * Bitmap = new Graphics::TBitmap;
TJPEGImage * examp = new TJPEGImage;
examp->LoadFromFile(s);
Canvas->StretchDraw(Rect (5, 155, 200,300), examp);
delete examp;




do {
                                i_count++;
                                FindNextFile (hFind, &FindFileData);
                                SubDirList[i_count] = FindFileData.cFileName;
                             Memo1 -> Lines -> Add (SubDirList[i_count]);
 p = 0;                              

 s = 0;
 

 p = FindFileData.cFileName;
 s = "D:\\1\\SERIAL_JPG\\" ;
  s = s + p;

TJPEGImage * examp = new TJPEGImage;

examp->LoadFromFile(s);
Canvas->StretchDraw(Rect (5, 155, 200, 300), examp);
delete examp;

  } while (SubDirList[i_count] != SubDirList[i_count-1]);