注册表 ReadBool类型和 ReadInteger 的关系

function TRegistry.ReadBool(const Name: string): Boolean;
begin
  Result := ReadInteger(Name) <> 0;
end;