Alle Komponenten einer Application ändern

[Michael Habbe]

Sicherheitshalber auch noch nach Label schauen:

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
      if TForm(Application.Components(I)).Components[i2] is TLabel then // <-- hier
        TLabel(TForm(Application.Components(I)).Components[i2]).Font.Color := clRed;
  end;
end;