Viele Labels, viel Code?

[uwewo]

Hi,

wie wäre es hiermit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount-1 do
    if Components[I] is TLabel then
      TLabel(Components[I]).Font.Color := clGreen;
end;