Unpacking a zip file

uses System.SysUtils, System.Zip;

begin
  try
    TZipFile.ExtractZipFile(
      'data.zip', 'tmp');
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
end.