void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TSearchRec sr;      String path = "c:\\xxx\\";
  String mask = "*.bmp";      int iAttributes = 0;
//  iAttributes |= faReadOnly;
//  iAttributes |= faHidden;
//  iAttributes |= faSysFile;
//  iAttributes |= faVolumeID;
//  iAttributes |= faDirectory;
  iAttributes |= faArchive;
//  iAttributes |= faAnyFile;      if (FindFirst(path   mask, iAttributes, sr) == 0)
  {
    do
    {
      if ((sr.Attr & iAttributes) == sr.Attr)
      {
        DeleteFile(path   sr.Name);
      }
    } while (FindNext(sr) == 0);
    FindClose(sr);
  }
}