TZipFile und Add

[Willie1]

Hallo Leute,
da ich TZipFile zum ersten Mal benutze, will ich zuerst üben.
Ich stelle fest, dass ich mit Add eine Datei, auch mehrmals, zu einem Archiv hinzufüge. Das Aktualisieren, das bedeutet überschreiben einer vorhandenen Datei ist nicht möglich, ist das richtig?
Ich stelle weiter fest, dass Dateien unter dem gleichen Namen mehrmals auftauchen können, ich kann sie also über den Namen nicht alle ansprechen! (ich weiß, es geht über den Index)

Nochmal meine Frage: kann ich eine vorhandene Datei im Archiv überschreiben?
Etwas Code:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if fod.Execute then begin
    if fod2.Execute then begin
      with TZipfile.Create do
      try
        if IsValid(fod.FileName) then begin
          open(fod.FileName, zmReadWrite);
          Add(fod2.FileName);
          Close;
        end;
      finally
        Free;
      end;
    end;
  end;
end;

Gruß Willie.