[Casimiro Notevi]

Si quiere ir a un directorio arriba sólo hay que añadirle los dos puntos

Ejemplo: (a lo bruto )

miruta := extractfilepath(paramstr(0));
cddir( miruta );
cddir( '..\'  );
chdir( 'data' );