Alle Komponenten einer Application ändern

[Dragon27]

Hallo,

danke der Code funct jetzt bei Formularen. Nun benutze ich auch Frames und habe das hier geändert aber es geht nicht wieso?

Delphi-Quellcode:

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