...
 for(int k= 0 ;k<ListBox1->Items->Count;k++)
  {
    FileListBox1->ApplyFilePath(ListBox1->Items->Strings[k]);
    Form1->Caption="Please wait! Refresh List of Files...";
    FileListBox1->Mask ="*.dbf";
    FileListBox1->Refresh();

    try
   {
     zagol="Analysing Structure of ";
     for(int i= 0 ;i<FileListBox1->Items->Count;i++)
     {
      FileListBox1->ItemIndex=i;
      filename=FileListBox1->FileName;
      Form1->Caption=zagol+filename;
      iFileHandle = FileOpen(filename, fmShareDenyNone);
      filename=filename.SubString(nPosRoot,filename.Length()-nPosRoot+ 1 );
      if(iFileHandle!=- 1 )
        Soob=GetFldInfo(iFileHandle,filename);
      else
        Soob="Error opening file!\r\n";
      FileWrite(oFileHandle,Soob.c_str(),Soob.Length());
      FileClose(iFileHandle);
     }
   }
    catch(Exception &exception)
    {
      Form1->Caption="Error occured...";
      Application->MessageBox("Can't perform one of the following file operations: Open, Seek, Read, Close.", "File Error", IDOK);
    }
   }