All contributions dictatorially edited by webmasters to match personal tastes.
Please do not paste any copyright violating resource.
Please try to avoid dependencies to third-party libraries and frameworks.
... Zip := TZipper.Create; Zip.FileName := name; Zip.Entries.AddFileEntries(list); Zip.ZipAllFiles; Zip.Free; ...
with zipfile.ZipFile(name, 'w', zipfile.ZIP_DEFLATED) as zip: for file in list_: zip.write(file)