[prosto_virus]

Архив не удаляется, т.к как он открыт

Код:

Zip := TZipFile.Create;
try
Zip.Open(opendialog1.filename, zmWrite);
Zip.Add(opendialog2.filename,file);
 finally
  Zip.Free;
  Zip.Close;
end;
//--------
deletefile(opendialog1.filename);