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.