Zip - WriteSpan klaptt nicht!

[Imagination]

Ein merkwürdiger Fehler...
Die Komponenete kann nach einigem Experimentieren seine eigenen org. Beispiele nicht mal mehr richtig ohne Fehler ausführen. Hab Delphi neu installiert und Komponente auch, aber WriteSpan der Demo klappt nicht. Hab jetzt TurboPower Abbrevia installiert und damit klappt es fast

Delphi-Quellcode:

unit Release;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, ExtCtrls, ZipMstr, AbMeter, AbBase,
  AbBrowse, AbZBrows, AbZipper;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Button1: TButton;
    FileListBox1: TFileListBox;
    Bevel1: TBevel;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label2: TLabel;
    SelectedList: TListBox;
    Button6: TButton;
    SortBut: TButton;
    AbZipper1: TAbZipper;
    Panel10: TPanel;
    Label3: TLabel;
    AbMeter1: TAbMeter;
    OpenDialog1: TOpenDialog;
    AbVCLMeterLink1: TAbVCLMeterLink;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure SortButClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;
  newName : String;
  newUploader : String;
  newInfo : String;

implementation

uses Share;

{$R *.dfm}

procedure TForm2.Button5Click(Sender: TObject);
Var
    i: Integer;
begin
  mkdir(ExtractFilePath(ParamStr(0))+'Upload\'+newName);

   AbZipper1.FileName:=ExtractFilePath(ParamStr(0))+'Upload\'+newName+'\'+newName+'.zip'; // Erst einmal erstellen damit
   AbZipper1.AddFiles( SelectedList.Items[0], 0 ); // hineingeschrieben werden kann?
                                         // Sonst klappt es irgendwie nicht!

   AbZipper1.ZipfileComment:='Kommentar';

  For i := 0 To SelectedList.Items.Count-1 Do
  Begin
   AbZipper1.FileName:=ExtractFilePath(ParamStr(0))+'Upload\'+newName+'\'+newName+'.zip';
   AbZipper1.AddFiles( SelectedList.Items[i], 0 );
  End;

end;

end.

Aber es kommt eine Fehlermeldung "Zugriffsverletzung", wenn ich
AbZipper1.SpanningThreshold := 1000000; // entspr. ca. 1 MB einfüge. Wenn ich das Zipfile öffne, ist aber alles in Ordnung.

Wie kann ich diese Fehlermeldung unterdrücken oder verbessern?