Hola, lo que yo entiendo es que quiere acceder a un nivel anterior al directorio donde esta su ejecutable, si es eso puedes hacerlo de esta forma:
Código Delphi
[-]
directorio:String;
begin
directorio := ExtractFilePath(Application.ExeName);
directorio := Copy(directorio, 1, LastDelimiter('\', directorio));
chdir(directorio+'data');
directorio := GetCurrentDir;
ShowMessage('Nueva ruta: '+directorio);
Saluditos