Var FilesCompressed: Integer;
begin
В В  If FileExists('c:Arhiv_parArhiv.zip') Then
В В В В В В If MessageDlg(
В В В В В В В В  'Архив существует... Перезаписать?',
В В В В В В В В  mtConfirmation,
В В В В В В В В  [mbYes, mbNo],
В В В В В В В В  0) = mrYes Then
В В В В В В В В  DeleteFile('c:Arhiv_parArhiv.zip')
В В В В В В Else
В В В В В В В В  Exit;

Zip1.ArchiveFile := 'c:Arhiv_parArhiv.zip';
Zip1.FileSpec.Add(GetPhNameByAlias('sklad')+'*.db');
FilesCompressed := Zip1.Compress();
ShowMessage('Упаковано файлов: ' + IntToStr(FilesCompressed));
end;