я хочу сделать если это 64 бита то

OpenKey(ReadString(_Data,_data_Key,_prop_Key),false,KEY_READ or $100)

если нет, то

OpenKey(ReadString(_Data,_data_Key,_prop_Key),false,KEY_READ)
------------ Дoбавленo в 14.44:
а 64 бита узнать через реестр ProgramFilesDir