Hallo Nils,
durch das WITH greifst du in der IF-Anweisung auf die
Komponenten der Komponenten zu. Versuche es so:
Delphi-Quellcode:
[...]
for i := 0 to ComponentCount - 1 do
SetVisibleValue (Components[i], (Components[i].Tag and 2) <> 0);
[...]
Die Compilerschalter ($M+, $M-) sind überflüssig. Nur Definition der Klasse, für die Typinformationen erzeugt werden sollen, muß damit eingeklammert werden.
Gruß Hawkeye