чтение Реестра

[Robin_]

Не могу считать реестр. Выводит пустое значение.
Иду по точку, ReadKey = True, reg.ReadString('ProductId') = ''
В реестре ветвь есть значение не пустое, не могу понять в чем проблема!!!

З.Ы.
Delphi 2010
Windows 7 Ultimate SP1 64x

function GetWinLic: string;
var
 reg: TRegistry;
begin
 reg := TRegistry.Create;
 reg.RootKey := HKEY_LOCAL_MACHINE;
 reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows NT\CurrentVersion');
 Result := reg.ReadString('ProductId');
 reg.CloseKey;
 reg.free;
end;

[Robin_]

Проблема в Win7 64
Решил проблему

 Try
   reg := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
 except
   reg := TRegistry.Create;
 End;