Zip-Archiv entpacken

[hoika]

Hallo,
im ProgressEvent einfach eine Exception erzeugen?

Delphi-Quellcode:

procedure TForm1.OnZipProgress();
begin
  Application.ProcessMe3ssages;  // wichtig

  if bAbort then
  begin
    Exception.Create('');
  end;
end;


// Button "Abbrechen"-Klick Methode
procedure TForm1.OnBtnCancelClick;
begin
  bAbort:= True;
end;

procedure TForm1.Entpacke;
begin
  ...
  try
    Zipfile.Extract ...
  except
  end;
end;