Zippen einer Datei abbrechen?

[Der schöne Günther]

Wie kann ich das Hinzufügen einer Datei zu einem Zip-Archiv zipFile.Add('x:\someBigFile.dat'); abbrechen? Es gibt zwar ein OnProgress -Event eines TZipFile , aber da sehe ich keine Möglichkeit das irgendwie abzubrechen:

Delphi-Quellcode:

uses System.Zip;

procedure TZipTest.handleZipProgress(
   Sender: TObject;
   FileName: string;
   Header: TZipHeader;
   Position: Int64
);
begin
   if(bedingungErfüllt) then raise EZipException.Create('Keine Lust mehr');
end;

Mit der Exception komme ich zwar raus, allerdings mache ich mir etwas Sorgen um die Integrität der ZIP-Datei. Der Windows-Explorer kommt zwar mit zurecht, aber was heißt das schon?