TOPIC:

procedure TfrmRestore.btnRestoreClick(Sender: TObject);
var
  i: integer;
  strItem: string;
begin
  with TFileOpenDialog.Create(nil) do
    try
      Options := [fdoPickFolders, fdoPathMustExist];

      if Execute
      then begin
           for i := 0 to AbListView1.Items.Count - 1 do
           begin
             if AbListView1.Items.Item[i].Checked = True
             then begin
                  strItem := AbListView1.Path + '\' + AbListView1.Items.Item[i].Caption;
                  AbUnZipper1.BaseDirectory := FileName;
                  AbUnZipper1.ExtractFiles(strItem);
             end;
           end;
      end;
    finally
      Free;
    end;
end;