{
TSearchRec sr;
int iAttributes = 0;
StringGrid1->RowCount = 1;
iAttributes and = faReadOnly * CheckBox1->Checked and faHidden * CheckBox2->Checked and faSysFile * CheckBox3->Checked and faVolumeID * CheckBox4->Checked and faDirectory * CheckBox5->Checked and faArchive * CheckBox6->Checked and faAnyFile * CheckBox7->Checked;
if (FindFirst(Edit1->Text, iAttributes, sr) == 0)
{
if (sr.Attr == iAttributes)
{
StringGrid1->Cells[1][StringGrid1->RowCount-1]
= sr.Name;