WinRar Komponente? oder ähnliches

[fl63]

Anbei der leicht bearbeitete Text der Demo

Delphi-Quellcode:

procedure TForm1.test7zdemoClick(Sender: TObject);
var i:integer;
begin
// opendialog1.InitialDir := 'c:\';
// if not opendialog1.Execute then exit;  // kein Opendialog

//Set archive filname
 sevenzip1.SZFileName := 'c:\testvcl1.7z';

//Set Volumesize
// sevenzip1.VolumeSize := strtoint(volsize.text);

//Set rootdir for recuresive folder (if wanted)
 sevenzip1.AddRootDir := 'c:\demo';

// If password7z.Text <> '' then Sevenzip1.Password := password7z.Text;

//Clear filelist
 sevenzip1.Files.Clear;
 sevenzip1.Files.AddString('C:\Demo\*.*');

// for i := 0 to opendialog1.Files.count-1 do
//  sevenzip1.Files.AddString(opendialog1.Files[i]);

//add files
  Sevenzip1.Add;

// Show result
 //label1.caption := inttostr(i);

end;

Bis zur Erstellung der 7z Datei funktioniert es. Ich finde keinen Fehler im Text. Dennoch hat die Archivdatei 0 Byte Größe. Was wohl darauf hindeutet, daß keine Dateien gepackt werden.
Woran liegt das??? Vielleicht kann mir doch noch jemand helfen.