Pues... no te explicas qué problema tienes... o no te entendemos
devuelve la ruta a tu programa, por ejemplo:
Código:
miruta := extractfilepath(paramstr(0));
Ahora sólo debes añadir la parte que quieras:
Código:
larutadata := miruta + '\data\';
ahora cambiamos a esa ruta
Código:
chdir( larutadata );