Como testar se uma determinada chave do registro do Windows possui sub-chaves

procedure TForm3.Button4Click(Sender: TObject);
var
  reg: TRegistry;
begin
  // uses Registry

  // vamos criar uma instância da classe TRegistry
  reg := TRegistry.Create;

  // vamos abrir uma chave dentro de HKEY_CURRENT_USER
  reg.RootKey := HKEY_CURRENT_USER;

  // vamos abrir a chave HKEY_CURRENT_USER\Control Panel
  if reg.OpenKey('Control Panel', False) then
    begin
      // vamos verificar se esta chave contém sub-chaves
      if reg.HasSubKeys then
        begin

procedure TForm3.Button4Click(Sender: TObject);
var
  reg: TRegistry;
begin
  // uses Registry

  // vamos criar uma instância da classe TRegistry
  reg := TRegistry.Create;

  // vamos abrir uma chave dentro de HKEY_CURRENT_USER
  reg.RootKey := HKEY_CURRENT_USER;

  // vamos abrir a chave HKEY_CURRENT_USER\Console
  if reg.OpenKey('Console', False) then
    begin
      // vamos verificar se esta chave contém sub-chaves
      if reg.HasSubKeys then
        begin