Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var n:Integer; begin for n:=0 to Form1.ComponentCount -1 do begin if Components[n] is Tlabel then Tlabel(Components[n]).Color:=ClRed; end; end;
procedure TForm1.Button1Click(Sender: TObject); var n:Integer; begin for n:=0 to Form1.ComponentCount -1 do begin if Components[n] is Tlabel then Tlabel(Components[n]).Color:=ClRed; end; end;