void __fastcall TfrmArhiv::btnCreateArhClick(TObject *Sender){
int nFile= 0 ,i;
AnsiString DBFile[MAXDBFILE];
AnsiString s;
TDateTime ToDay=ServerDateTime();

if(access(edtArhName->Text.Trim().c_str(), 0 )== 0 ){
    s="Файл ";
    s=s+edtArhName->Text.Trim()+" уже существует. Переписать?";
    if( 0 !=Msg(QUESTION,"Да|Нет",s.c_str())){
        return;
    }
    unlink(edtArhName->Text.Trim().c_str());
}

// спросим файлы БД
TStoredProc *st=CreateStProc(db,"sp_helpfile", 0 );
st->Open();
for(i= 0 ,st->First();!st->Eof;st->Next(),i++){
    DBFile[i]=st->FieldByName("filename")->AsString;
    nFile++;
}
delete st;

// остановим SQL server
db->Close();
s=ExePath()+"stopserver.bat";
ShellExecute( 0 ,"open",s.c_str(),"",ExePath().c_str(), 1 );
Sleep( 10000 );

zip1->FileName=edtArhName->Text;
zip1->OpenArchive();

lblFile->Visible=true;
lblAll->Visible=true;
pbFile->Visible=true;
pbAll->Visible=true;
Application->ProcessMessages();

for(i= 0 ;i<nFile;i++){
    TFileStream *fs=new TFileStream(DBFile[i],fmOpenRead);
    lblFile->Caption=DBFile[i];
    Application->ProcessMessages();
    zip1->AddFromStream(DBFile[i],fs,false, 0 , 0 ,faArchive,ToDay);
    delete fs;
}
zip1->CloseArchive();

lblFile->Visible=false;
lblAll->Visible=false;
pbFile->Visible=false;
pbAll->Visible=false;
Application->ProcessMessages();

// запустим SQL Server
s=ExePath()+"startserver.bat";
ShellExecute( 0 ,"open",s.c_str(),"",ExePath().c_str(), 1 );
Sleep( 10000 );
db->Open();
ParentForm->queStreets->Open();
ParentForm->queHouses->Open();
ParentForm->queFlats->Open();
}