Wie iteriere ich durch eine Menge?

[Dust Signs]

Hallo!

Ich habe zwar eine gefühlte Ewigkeit nicht mehr Delphi programmiert, aber was spricht gegen Folgendes?

Delphi-Quellcode:

var
  state: SmallInt;
begin
  for state := Ord(Low(TShiftState)) to Ord(High(TShiftState)) do //Iteriere über alle möglichen Werte
  begin
    if (state = Ord(ssAlt)) then //Beispiel für einen Vergleich
      WriteLn('Test Alt');
  end;
end;

Ich habe gerade keine aktuelle Delphi-Version installiert, aber mit fpc funktioniert das einwandfrei. Oder habe ich die Fragestellung falsch verstanden?

Grüße
Dust Signs