event log, thread sin parar.

[[duilioisola]]

No conozco el componente (nunca lo he usado), pero me resulta raro lo siguiente:

Creo que en vez de ExtractFilename deberías usar ExtractFilePath para las rutas
(DLLDirectory, CreateDir y ExtrBaseDir)

Código Delphi [-]
   ...
   //DLLDirectory será el nombre de Archivo
   ZipMaster.DLLDirectory := ExtractFilename(Archivo);
   //ZipFileName TAMBIEN será el nombre de Archivo
   ZipMaster.ZipFileName := ExtractFilename(Archivo);
   //Creas un directorio que se llama C:\WINDOWS\TEMP\NombreDeArchivo
   CreateDir('C:\WINDOWS\TEMP\'+ExtractFilename(Archivo));
   //Utilizas un directorio que se llama C:\WINDOWS\TEMP\NombreDeArchivo
   ZipMaster.ExtrBaseDir := 'C:\WINDOWS\TEMP\'+ExtractFilename(Archivo);
   ...

Si Archivo='ARCHIVO.TXT';

Código Delphi [-]
   ...
   ZipMaster.DLLDirectory := 'ARCHIVO.TXT';
   ZipMaster.ZipFileName := 'ARCHIVO.TXT';
   CreateDir('C:\WINDOWS\TEMP\ARCHIVO.TXT');
   ZipMaster.ExtrBaseDir := 'C:\WINDOWS\TEMP\ARCHIVO.TXT';
   ...