Alle Komponenten einer Application ändern

[Zacherl]

Oder halt so:

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;

//Edit: Der "rote Kasten" warnt dich beim Abschicken eines Post, wenn in der Zeit während du geschrieben hast neue Beiträge dazukamen. Dass soll verhindern, dass mehrmals der selbe Vorschlag gepostet wird.