Variablen und Bit-Abfrage in Schleife zusammenfassen

[Helmi]

Hallo,

ich bräucht Hilfe.

Ich hab eine Bit-Abfrage einer Byte-Variable auf ein Array:

Delphi-Quellcode:

  Shape_aktiv[1] := not (LED_Zustand and 1) > 0;
  Shape_aktiv[2] := not (LED_Zustand and 2) > 0;
  Shape_aktiv[3] := not (LED_Zustand and 4) > 0;
  Shape_aktiv[4] := not (LED_Zustand and 8) > 0;
  Shape_aktiv[5] := not (LED_Zustand and 16) > 0;
  Shape_aktiv[6] := not (LED_Zustand and 32) > 0;

Ich würd das gern in eine Schleife bringen.

Wie kann ich das in einer Schleife machen?