sevenzip Api

[-Phantom-]

Ich hab es nun so versucht :

Delphi-Quellcode:

var
i : Integer;
datei : TStream;
begin

with CreateInArchive(CLSID_CFormatZip) do
begin

datei := TFileStream.Create(openpfad, fmOpenRead);
  for i := 0 to dateilist.Items.Count - 1 do begin
    if dateilist.Items[i].Selected then begin
      extractitem(i,datei,true);
    end;


  end;

end;
end;

Dann kommt ein Laufzeit ERROR :
Acces violation at address 0064CA88 in module test.exe'. Read of address 00000000