Byuik, здарова! Вместо ReadDirKey(_Data,'ProgramFiles'); надо написать ReadDirKey(_Data,'ProgramFilesDir');
------------ Дoбавленo в 07.57:
anyway...