Найти ошибку в маленьком куске кода

[xaero93]

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

  
MyReg: TRegistry;
RegPath: string;
begin
edit1.Text:=CompName;
edit2.Text:=UserName;
   MyReg:=TRegistry.Create;
   MyReg.Rootkey:=HKEY_LOCAL_MACHINE;
   RegPath:='\SOFTWARE\Microsoft\Windows NT\CurrentVersion';
   MyReg.Openkey(RegPath, false);
   Edit3.Text:=MyReg.ReadString('ProductName');
   Edit4.Text:=MyReg.ReadString('CurrentBuild');
end;

в едит 3 и 4 должны вывестись название ос и ее билд. В реестре проверял, такие строки есть, но, однако, ничего не работает.
Скорее всего ошибка глупая,но в упор не вижу.
Заранее спасибоо и простите за очипятки))

[Greblin]

На семёрке всё вывелось. А какая у Вас ошибка? Просто ничего не показывает

[xaero93]

странно, у меня тоже семерка стоит.
именно, ничего не выводится в едиты 3 и 4

[Stilet]

ничего не выводится в едиты 3 и 4

Наверное я затуплю, но спрошу: А вообще эти ключи в реестре есть? через RegEdit их видно?

[xaero93]

если я все правильно посмотрел, то есть.
по крайней мере в семерке да, плюс у Форумчанина двумя постами выше, все работает