A for loop iterate through items in an enumeration
program EnumLoop;
uses
  TypInfo;
type
  TWeekdays = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);
var
  wd : TWeekdays;
begin
  for wd in TWeekdays do
    WriteLn(GetEnumName(TypeInfo(TWeekdays), Ord(wd)));
...