TZipForge - nie odczytuje danych z archiwum

[Corvis]

Mam kod pakujący dane za pomocą TZipForge:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

    ZipForge1->FileName = "skakowany.zip";
    ZipForge1->BaseDir  = ExtractFilePath(Application->ExeName);
    ZipForge1->EncryptionMethod = caAES_256;
    ZipForge1->Password = "ppp";
   
    ZipForge1->OpenArchive(fmCreate);
    ZipForge1->AddFiles("plikHEX.hex");
    ZipForge1->CloseArchive();

I kod odczytujące dane z archiwum do memo:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

    TMemoryStream *str = new TMemoryStream();
    ZipForge1->FileName = "skakowany.zip";
    ZipForge1->OpenArchive(fmOpenRead);
    ZipForge1->EncryptionMethod = caAES_256;
    ZipForge1->Password = "ppp";
   
    ZipForge1->ExtractToStream("plikHEX.hex",str);
    Memo1->Lines->LoadFromStream(str);

    ZipForge1->CloseArchive();
    delete str;

Problem polega na tym, ze nic w tym Memo1 nie widzę, a powinienem napisy z pliku spakowanego. Wie ktoś może co robię źle ??

Pozdrawiam,

[Cyfrowy Baron]

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

  ZipForge1->ExtractToStream("plikHEX.hex",str);
  str->Position = 0; // <--- trzeba powrócić na początek strumienia
  Memo1->Lines->LoadFromStream(str);

[Corvis]

Dzięki !!