TZipFile и пустые каталоги

[FaTaL]

Здравствуйте. Возник такой вопрос. Как известно со времён ХЕ2 появилась поддержка ZIP архивов System.Zip. Но при архивации каталога методом ZipDirectoryContents в архивы не включаются пустые папки. Остальные файлы и папки нормально архивируются, а пустые не хотят. А это важно, чтобы не нарушать иерархию папок. Может кто знает как это лечится? Или всё таки придётся пользоваться сторонними компонентами?
Заранее Благодарен за ответ.
Вот мой код:

uses System.Zip;
..................................
var
  zip : TZipFile;
..................................
  zip := TZipFile.Create;
  zip.UTF8Support := true;
  zip.ZipDirectoryContents('Путь_и_имя_архива.zip', 'Архивируемая папка');
  zip.Close;
  zip.Free;

И ещё почему то после архивации, если архив открывать на другом компе, где не стоит Delphi XE2+, то русские имена файлов и папок в архиве отображаются иероглифами, а на компе в Delphi XE2+ нормально всё отображается. Кто что может подсказать?
Может есть ещё какие то примеры по простой упаковки папки с подпапками в формат ZIP?