Wie iteriere ich durch eine Menge?

[Der schöne Günther]

Das dachte ich auch erst.

Aber das klappt nicht. Ganz konkretes Beispiel:

Delphi-Quellcode:

procedure TForm20.listViewMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
   iterator: TShiftState;
  begin

   for iterator in shift do;

Ergibt: [dcc32 Fehler] Unit20.pas(271): E2010 Inkompatible Typen: 'TShiftState' und 'Enumeration'