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

ZipForge1->FileName ="c:\\test.rar";
ZipForge1->OpenArchive();
//ZipForge1->Password = "1";
ZipForge1->ExtractFiles("*.*");
ZipForge1->BaseDir = "c:\\";
ZipForge1->CloseArchive();

ZipForge1->Password = Edit1->Text;

try
{
ZipForge1->Password...
}
catch (...)
{ 
ShowMessage("Работаем дальше по своему алгоритму!");
}

void __fastcall TForm1::ExtZip(AnsiString Patch)
{
   TZFArchiveItem Archiveitem;
   Zip->FileName = Patch;
   Zip->BaseDir = SavePut;
 
   TInternalSearchRec asd;
   try
   {
 
      Zip->OpenArchive(fmOpenRead);
      Zip->FindFirst("*.*" , Archiveitem, faAnyFile|faDirectory);
 
      for(int i =0; i < Paroll->Count; i++){
         Zip->Password =Paroll->Strings[i];
         do
         {
            if(Zip->IsFilePasswordValid(Archiveitem.FileName,Zip->Password) == true){
               RichEdit1->Lines->Add(Zip->BaseDir + Archiveitem.StoredPath + Archiveitem.FileName);
         // Если не нужно разархивировать то следующую инструкцию закоментируй
               Zip->ExtractFiles(Archiveitem.FileName);
            }
            else
            {
               break;
            }
         }
         while( Zip->FindNext(Archiveitem));
      }
   }
   catch(...){
      Zip->CloseArchive();
     }
   Zip->CloseArchive();
}