Справка по TVclZip, делфи

[Алексей_2012]

Ребят, всем привет, нигде не могу найти справку по компоненту TVClZip, нужно при помощи его, либо другого архиватора запаковать картинки из одной папки и текстовый файл из другой в архив, а по другой кнопке распаковать эти файлы по тому же пути. Вот мои наработки.

procedure TForm1.Button5Click(Sender: TObject);
var i: Integer;
  ts_save: TStringList;
begin
  saveDialog1.Options := [ofAllowMultiSelect, ofReadOnly, ofPathMustExist, ofFileMustExist];
  ts_save := TStringList.Create;
  ts_save.clear;
  ScanDir(disk + '\prgTests\', '', ts_save); //здесь поиск файлов в папке и заполнение списка


  if ts_save.count > 0 then
  begin
    if not SaveDialog1.Execute then Exit;
    if FileExists(SaveDialog1.filename) then
      DeleteFile(SaveDialog1.FileName);
    with VCLZip1 do
      for i := 0 to ts_save.Count - 1 do
      begin
        ZipName := SaveDialog1.FileName + '.ziptst';
        FilesList.Add(ts_save[i]);
        Recurse := true;
        PackLevel := 9;
        RootDir := disk + '\prgTests\';
        Zip;
      end;

    ShowMessage('Файлы сохранены в архивы: ' + VCLZip1.ZipName);
  end

  ts_save.free;
end;

а вот выгрузка только текстовых файлов из архива

procedure TForm1.Button6Click(Sender: TObject);
var s: string;
begin
  s := disk + '\prgTests\';
  if not OpenDialog1.Execute then Exit;
  OpenDialog1.Options := [ofAllowMultiSelect, ofReadOnly, ofPathMustExist, ofFileMustExist];
  if not CreateFullDir(s) then
  begin
    ShowMessage('Ошибка создания папки!');
    exit;
  end;

  with VCLZip1 do
  begin
    ZipName := opendialog1.FileName;
    Destdir := s;
    FilesList.Add('*.xtst');
    DoAll := true;
    Recurse := True;
    StorePaths := true;
    RootDir := '\';
    DoAll := False;
    unzip;
  end;
  form1.OnShow(Self);
  ShowMessage('Импорт тестового архива завершен!');
end;