Реестр в WIN7

Будьте добры, помогите пожалуйста.
Ниже код неработает в WIN7, в ХР все норамально

 
 procedure TForm1.FormCreate(Sender: TObject);
 
 var Regini: TReginiFile;   
       reg : TRegistry;
          j: integer;
      st : Tstrings;
begin
         //------------ Поиск в реестре сом портов----------------------------------------------//
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('hardware\devicemap\serialcomm', false);
    st := TStringList.Create;
    reg.GetValueNames(st);
 for j := 0 to st.Count -1 do
     ComboBox1.items.Add(reg.ReadString(st.Strings[j]));
     st.Free;
     reg.CloseKey;
     reg.free;

что посоветуете?

если данный ключ, существует и там и там, то логично подумать что просто в 7ке нет прав на доступ к данной ветке.

наверно надо среду запускать с правами админа.

Не среду, а приложение.

и не обязательно админа. Я б погладел права доступа к этой ветке и решил как быть.

зогчем? задача стоит читать, на хрена открывать для записи-то?
ОП сам виноват, а не винды

Цитата (bugmenot):

Опытный программист? Огнетушитель порошковый? Офисный планктон?

Цитата (Ерёмин А.А.):

Октагональная призма
http://lurkmore.to/%D0%9E%D0%BF