[johurgi]

con el codigo del hilo que me has dicho me ha funcionado perfectamente lo unico que le he cambiado una de las opciones para que me valla mas rapido.

Código Delphi [-]
deflationOption:=doSuperFast;

gracias por tu ayuda.

Un saludo.