Проверка выбора

[Михаил Юрьевич]

В Checklistbox загружаю все диски установленные на ПК, в итоги нужно что бы пользователь выбрал нужные диски для скрытия. не могу сообразить как поумнее создать проверку какие диски выбраны и сложить цыфры. Использовать " if then else " очень накладно. А через " Case " что то не сооброжу, дайте совет как правильно расписать.

Например, диск A имеет бит 1, диск С - 4, диск D - 8. Таким образом, чтобы скрыть диски A и D, нужно сложить их значения 1 (A) + 8 (D) и установить значение 9.
Список всех дисков:
A: 1, B: 2, C: 4, D: 8, E: 16, F: 32, G: 64, H: 128, I: 256, J: 512, K: 1024, L: 2048, M: 4096, N: 8192, O: 16384, P: 32768, Q: 65536, R: 131072, S: 262144, T: 524288, U: 1048576, V: 2097152, W: 4194304, X: 8388608, Y: 16777216, Z: 33554432, Все диски: 67108863

[Slym]

var disc:dword;
i:integer
begin
disc:=0;
for i:=0 to 25 do //a-z
 if selected(i) then
disk:=disk or (1 shl i);