Ist eigentlich ganz einfach:
Delphi-Quellcode:
var
i: integer;
begin
for i := ord( low( TWochenTag ) ) to
ord( high( TWochenTag ) ) do
begin
// i geht vom ersten bis zum letzten Element durch
end;
end;
Schau dazu auch mal in die Onlinehilfe zum Thema "TypeInfo".