操作注册表问题？

我想在列表框显示注册表中某一主键下的各个子键的名字，为何显示不出来？我的程序如下：
procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  Val:TStringlist;
  I:Integer;
begin
  Reg:=TRegistry.Create;
  try
      Val:=TStringlist.Create;
    try
      Reg.RootKey:=HKEY_LOCAL_MACHINE; // Section to look for within the registry
      if not Reg.OpenKey('\Software\',False) then      else
      begin
        Reg.GetKeyNames(Val);        for I:=0 to Val.Count-1 do
        begin        listbox1.Items.Add(Reg.ReadString(Val[I]));
        end;
       end;    finally
      Val.Free;
    end;
  finally
    Reg.Free;
  end;
end;