[Alexandr_57]

Здраствуйте. Скажите как сделать свой архив для содержания:
1. Информацию в виде типа record

Код:

Type TInfo=record
  //Имя автора
  NameAutor:String[30];
  //Информация отображаемая в Memo
  Info:TStringList;
  Pasword:WideString;
  Logo:TPNGImage;
end;

2. Любой файл
Процесс архивации нужно показывать в ProgressBar
Полученный архив должно быть нельзя открыть в любой программе кроме как моей.
Например в 7zip или джругом архиваторе
Или в редакторе ресурсов
Информацию тоже должно быть нельзя прочесть
Может есть готовый компонент или библиотека?