[roman]

Código Delphi [-]
type
  TControl = class(Controls.TControl);

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;

begin
  for I := 0 to ControlCount - 1 do
    TControl(Controls[i]).Color := clRed;
end;

// Saludos