Alle Komponenten einer Application ändern

[Dragon27]

Danke für die Hilfe....

aber bei diesem Code:

Delphi-Quellcode:

for I := 0 to Application.ComponentCount-1 do
begin
  if Application.Components[i] is TForm then
  begin
    for i2 := 0 to TForm(Application.Components[I]).ComponentCount -1 do
      TLabel(TForm(Application.Components[I]).Components[i2]).Font.Color := clRed;
  end;
end;

bekomme ich lauter Zugriffsverletzungen

danke für die Hilfe