Descomprimir con TZipFile

[Casimiro Noteví]

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
Var
  Zip :TZipFile;
Begin
  Zip := TZipFile.Create;
  Try
    Zip.Open ('C:\Delphi\Ejemplos\TZipFile\Prueba.zip', zmRead);
    Zip.ExtractAll('C:\Delphi\Ejemplos\TZipFile');
  Finally
    Zip.Free;
  End;
End;

479 Mb no es grande. Lo que has leido es para archivos de más de 4 Gigas.