Para descompactar um arquivo ZIP

[code lang=”pascal”]
uses System.ZIP;
function ZipFileDecompress(FZipfile, APath: string): integer;
var
z: TZipFile;
begin
result := 0;
z := TZipFile.Create;
try
if fileExists(FZipfile) then
z.Open(FZipfile, zmReadWrite)
else
raise exception.Create(‘Não encontrei: ‘ + FZipfile);
z.ExtractAll(APath);
z.Close;
result := 1;
finally
z.Free;
end;
end;
[/code]