[Delphi]Problezm z ZipForge

Witam.
Używam komponentu TZipForge, ale mam z nim pewien problem, oto mój kod:

CreateDir(sciezka+nazwa);
with form2.Archiver do
    begin

        FileName := plik;
       
        OpenArchive(fmCreate);
       
        BaseDir := sciezka+nazwa;
     
        ExtractFiles('*.*');
     
        CloseArchive;
    end;
    ShowMessage('Wszystkie pliki wypakowane prawidłowo.');
    Form1.Close;

Kod powinien tworzyc folder "obok" archiwum i wypakowac tam pliki. Problem polega na tym, że folder owszem, tworzy się... ale nie pojawiają się tam żadne pliki. Ma ktoś pomysł jak to naprawic?

Pozdraiwam.

Zwróć uwagę co zawiera sciezka+nazwa. Może zamiast stringa w postaci 'C:\Folder' ma być 'C:\Folder\'

Niestety, po dodaniu "ukośnika" nic się nie zmienia.

Ma ktoś inny pomysł jak to naprawic?

Spróbuj tego, to kawałek kodu z mojego programu, mam nadzieję, że naprowadzi Cię na trop:

function Wypakuj(strPlikZip, strSciezka: string): Boolean;
  var
    ZipForge: TZipForge;
  begin
  Result := True;
  ZipForge := TZipForge.Create(Application);
  ZipForge.FileName := strPlikZip;
  try
  ZipForge.OpenArchive(fmOpenRead);
  ZipForge.BaseDir := strSciezka;
  ZipForge.ExtractFiles('*.key');
  ZipForge.CloseArchive;
  except
    on e:Exception do
      Result := MessageBox(Application.Handle, 'Źle pobrane lub uszkodzone archiwum.', 'SoftCamInstaller', MB_OKCANCEL + MB_ICONSTOP) = mrOk;
    end;
  ZipForge.Free;
  end;

Dodam, że to jest Delphi, nie ma żadnych ekstrawaganckich podówjnych slashy, ścieżkę wpisujesz tak, jak ona jest zapisywana w systemie, np. 'c:\test.zip'.