De nuevo problemas con el winexec

[quake2420]

Hola amigos, mi problema es el siguiente:
Tengo un trozo de programa que lo que hace es crear archivos zip, mi problema es que la ejecucion del winexec, a veces funciona y otras veces no funciona.
El codigo es el siguiente:

 
rutaT:=directorio + '\';
//Creacion del archivo zip donde se guarda
//los archivos wpa, xml y dtd
copyfile(PChar(rutaT + 'contenido.xml'),
PChar(rutazp + 'contenido.xml'),existe);
copyfile(PChar(rutaT + 'estilo.xml'),
PChar(rutazp + 'estilo.xml'),existe);
copyfile(PChar(rutaT + 'nuevo.dtd'),
PChar(rutazp + 'nuevo.dtd'),existe);
copyfile(PChar(rutaT + nombreA + '.wpa'),
PChar(rutazp + nombreA + '.wpa'),existe);
rutazp1:='"'+rutazp+'"';
zipf:=nombreA + '.wzp';
wpaf:=nombreA+'.wpa';
diractual:=SetCurrentDir(rutazp);
winexec(Pchar('crearzip.bat ' + rutazp1 + ' ' + zipf + ' '
+ wpaf),SW_hide);
sleep(1000);
copyfile(PChar(rutazp + zipf),PChar(rutaT + '\' + zipf),existe);
deletefile(PChar(rutazp + 'contenido.xml'));
deletefile(PChar(rutazp + 'estilo.xml'));
deletefile(PChar(rutazp + 'nuevo.dtd'));
deletefile(PChar(rutazp + wpaf));
deletefile(PChar(rutazp + zipf));

El archivo bat que utlizo tiene el siguiente contenido

cd %1
7z a %2 contenido.xml estilo.xml nuevo.dtd %3

donde %1 es el directorio donde se encuentra el ejecutable del zip, %2 es el archivo .zip y %3 es un archivo de tipo wpa
Gracias por adelantado

[Descendents]

Te recomiendo el Tzipforge, a ver que tal te va

[dec]

Hola,

Probados los componentes que dices y aun otros más por el estilo, me vengo quedando con Turbo Power Abbrevia, como ya dije en este hilo.