请教一个OP的语法问题（有关集合）

Question

怎么读取集合中的每个成员？比如说：
type
  TByteSet = set of Byte;
var
  bs: TByteSet;
  i: SmallInt;
begin
  bs := [1, 2, 3, 4, 5]; 
  for i := Low(bs) to High(bs) do // 不行呢???
  begin
     ShowMessage(IntToStr(bs[i]));// ^_^不行呢不过我需要的就是这个意思  
  end; 
end;

Answer 1

for i := Low(Byte) to High(Byt) do
if i in bs then
 ...