Как программно распаковать архив ZIP

...
   path = "";
   if(SelectDirectory("Мой компьютер", "", path)){
      ZipForge1->FileName = str + "\\arhive.zip";
      ZipForge1->OpenArchive(fmOpenRead);
      ZipForge1->BaseDir = path;
      ZipForge1->ExtractFiles("*.*");
      ZipForge1->CloseArchive();
     }
...

if (FileExists(filename)) {
  ReplaceFile(from_path,to_path);
}

if (FileExists(filename)) {
  DeleteFile(filename);
}

...
   String archive = "C:\\test.zip";
   String DirUnpack = "C:\\Folder"; // Можно рядом с программой, роли не имеет.
   ZipForge1->FileName = archive;
   ZipForge1->OpenArchive(fmOpenRead);
   ZipForge1->BaseDir = DirUnpack;
   ZipForge1->ExtractFiles("*.*");
   ZipForge1->CloseArchive();
...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TZFArchiveItem Archiveitem;
   ZipForge1->FileName = "text.zip";
   ZipForge1->BaseDir = "C:\\test\\"; // Папку можно указать рядом с программой
 
   try{
      ZipForge1->OpenArchive(fmOpenRead);
      if(ZipForge1->FindFirst("*.*" , Archiveitem, faAnyFile|faDirectory)){
         do{
            ZipForge1->ExtractFiles(Archiveitem.FileName); // Без этой строки первое имя в архиве не попадёт в список извлечения
            RichEdit1->Lines->Add(ZipForge1->BaseDir + Archiveitem.StoredPath + Archiveitem.FileName);
           } while(ZipForge1->FindNext(Archiveitem));
        }
     }
   catch(...){
      ZipForge1->CloseArchive();
     }
   ZipForge1->CloseArchive();
}