Codolex

begin

var ArchiveName := '';

var ZipFile1 := ZipFile;

for var ContentPath in StringArray do

begin

  var IsDirectory := TDirectory.Exists(ContentPath);

  if IsDirectory then

  begin

    var FolderInArchive := TPath.GetFileName(ContentPath) + '/';

     ZipFile1.Add(TBytes(nil), FolderInArchive, zcDeflate);

    var Files := TStringList.Create;

     Files.AddStrings(TDirectory.GetFiles(ContentPath));

    var FileItem: string;

    for FileItem in Files do

    begin

       ArchiveName := TPath.Combine(FolderInArchive, TPath.GetFileName(FileItem));

       ZipFile1.Add(FileItem, ArchiveName, zcDeflate);

    end;

    var SubFolders := TStringList.Create;

     SubFolders.AddStrings(TDirectory.GetDirectories(ContentPath, '*.*', TSearchOption.soAllDirectories));

    for var SubFolderItem in SubFolders do

    begin

       Files.Clear;

       Files.AddStrings(TDirectory.GetFiles(SubFolderItem));

      var SubFolderName := TPath.GetFileName(SubFolderItem) + '/';

      var SubFolderArchiveName := TPath.Combine(FolderInArchive, SubFolderName);

       ZipFile1.Add(TBytes(nil), SubFolderArchiveName, zcDeflate);

      for FileItem in Files do

      begin

         ArchiveName := TPath.Combine(SubFolderArchiveName, TPath.GetFileName(FileItem));

         ZipFile1.Add(FileItem, ArchiveName, zcDeflate);

      end;

    end;

  end

  else

  begin

     ArchiveName := TPath.GetFileName(ContentPath);

     ZipFile1.Add(ContentPath, ArchiveName, zcDeflate);

  end;

end;

end;