¿Como recorrer un conjunto?

[roman]

Código Delphi [-]
var
  e: TEnum;
  c: TSetEnum;

begin
  for e := Low(TEnum) to High(TEnum) do
    if e in c then
      { haz algo con e }
end;

// Saludos