Alle Komponenten einer Application ändern

[Dragon27]

Hallo,

habe das hier Probiert:

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;

Aber er zeigt diesen einen Fehler:

Zitat:

[Fehler] LoadFrame.pas(75): E2003 Undefinierter Bezeichner: 'Font'

[edit=SirThornberry]Delphi Tag berichtigt - Mfg, SirThornberry[/edit]