Работа с множествами

var
 iSet:set of byte;
 i,count:byte;
begin
...
 iSet:=iSet+[1,3,7,10]; //ну например такое
 for i:=0 to 255 do
  if i in iSet then inc(count);
...
end.