[Abbrevia] Es wird immer wieder neues Archive erstellt

[-Phantom-]

Hey Leute,

Ich versuche grade ein .cab Archive zu erstellen und das so:

Delphi-Quellcode:

procedure Tform4.cab(CabS : String);
var
datei : String;
begin
form2.AbMakeCab1.FileName := Cabs;
form2.AbMakeCab1.OpenArchive(cabs);
datei := Extractfilename(neupfad);
form2.AbMakeCab1.AddFiles(datei,0);
form2.AbMakeCab1.CloseArchive;

//Der Aufruf

Delphi-Quellcode:

procedure TForm4.sButton2Click(Sender: TObject);
{...}
cab(neupfad+'.cab');
{...}
end;

Das Archive wird auch erstellt soweit so gut.

Nun will ich mehr Dateien einfügen und das so:

Delphi-Quellcode:

opendialog2.Execute;
i2 := opendialog2.Files.Count;
for i := 0 to i2-1 do begin
neudatei := Extractfilename(opendialog2.Files[i]);
item := slistview2.Items.Add;
item.Caption := neudatei;
item.SubItems.Add(Extractfilename(neupfad)+'\'+neudatei);
abmakecab1.FileName := neupfad+'.cab';
abmakecab1.AddFiles(Extractfilename(opendialog2.Files[i]),0);
abmakecab1.CloseArchive;

Aber im Archive ist immer nur 1 Datei, ich kann so viele einfügen wie ich will immer nur eine
Ich glaube, das sich das Archive immer wieder neu erstellt.
Wisst ihr was das Problem ist?

PS: Bei den Beispielen von Abbrevia habe ich nichts brauchbares gefunden

----------------------------------------------------------------------

Gruß

Mathias