Pegar dados de registro windows

Bom noite... Gostaria de saber oque eu fiz de errado... não consigo retornar o registro do nome do Sistema operacional... retorna em branco... uso windows 7 Ultimate 64bits e quando abro o regedit... a chave de registro se encontra lá... mas não entendo o que estou fazendo de errado que retorna em branco...

procedure TForm1.Button2Click(Sender: TObject);
var Reg : TRegistry;
 S : String;

 Reg:= TRegistry.Create;
 Reg.rootKey:=HKEY_LOCAL_MACHINE;
 Reg.openKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', false);
 S:= Reg.ReadString('ProductName');
 ShowMessage(S);
 Reg.CloseKey;
 Reg.Free;

end;