// create ZipForge object
Archiver := TZipForge.Create(nil);
// set the archive file name
Archiver.FileName := 'c:\test.zip';
// repair the archive and save it to test_repaird.zip
on E: Exception do
Writeln('Error: ' + E.Message);
The other people in the office didn't believe me when I said that all I had to do was document the problem and you would probably give me a fix overnight. Unbelievable! Keep up the great work. I hope you guys all make a fortune out of this product because it is truly fantastic and the support is the best I have ever encountered.