void __fastcall TPicViewForm::DirectoryListBox1Change(TObject *Sender)
{
  TListItem *ListItem;
  TSearchRec sr;
  TRect DRect,SRect;
  String AppDir=ExtractFileDir(Application->ExeName);
  int iPicCount=0;      ImageList1->Clear();
  ListView1->Items->Clear();      if (DirectoryListBox1->Directory.LastDelimiter("\\") == DirectoryListBox1->Directory.Length() )
      DirectoryListBox1->Directory.SetLength(DirectoryListBox1->Directory.Length()-1);      if ( !FindFirst(DirectoryListBox1->Directory "\\*.bmp",faAnyFile, sr) )
     {
      do
        {
         Graphics::TBitmap *PicBmp   = new Graphics::TBitmap();             try
            {
             PicBmp->LoadFromFile(DirectoryListBox1->Directory "\\" sr.Name);
            }
         catch(...)
            {
             ShowMessage(DirectoryListBox1->Directory "\\" sr.Name);
            }             Graphics::TBitmap *DestBmp   = new Graphics::TBitmap();
         DestBmp->Width=90;
         DestBmp->Height=90;             DestBmp->Canvas->StretchDraw(Rect(1,1,89,89),PicBmp);             ListItem = ListView1->Items->Add();
         ListItem->Caption = sr.Name;
         ListItem->ImageIndex = ImageList1->Add(DestBmp,NULL);
//         PicBmp->SaveToFile(AppDir "\\back\\" sr.Name);             delete PicBmp;
         delete DestBmp;             StatusBar1->Panels->Items[0]->Text = "Total : " IntToStr(  iPicCount) " Bitmaps.";
         Application->ProcessMessages();
        }
      while ((!FindNext(sr)) && (!bCloseForm));          FindClose(sr);
    }
}