Hola,
Yo hace ya tiempo me encontre con el siguiente problema utilizando extractfilepath y una api de window que te retorna el path. Al igual que tu tenia un programa que funcionaba hace tiempo y en muchas maquinas, pero cuando lo copie en un servidor ya no me funcionaba bien. La cuestion es que en segun que versiones de windows el extractfilepath y la api correspondiente me devolvian la ruta de forma diferente. Es decir en unos casos me devolvian la ruta terminandola con un '\' y en los otros no.
Por eso en el if que tienes que comprueba el fichero no te estaria encontrando el fichero y no se cumpliria la condicion.
Cita:
|
if fileexists(extractfilepath(xarchivoorig)+xpoliza+'_rec'+ansirightstr(xarchivoorig,4)) then
|
Por eso al montar la cadena con la ruta + archivo tenia que tener en cuenta los dos casos.