UnZIP basado en /DotNetZip

[[ppb]]

Solucionado :

Código Delphi [-]
function Unzip(aContent: TArray): string;
var
  DecompressionStream: TDecompressionStream;
  Compressed: TBytesStream;
  Decompressed: TStringStream;
begin
    Compressed := TBytesStream.Create(aContent);
    try
      DecompressionStream := TDecompressionStream.Create(Compressed, -8);
      try
        Decompressed := TStringStream.Create('', TEncoding.UTF8);
        try
          Decompressed.LoadFromStream(DecompressionStream);
          Result := Decompressed.DataString;
        finally
          Decompressed.Free;
        end;
      finally
        DecompressionStream.Free;
      end;
    finally
      Compressed.Free;
    end;
end;

Gracias.