Viele Komponenten schneller in den Eigenschaften ändern

[LingNeu]

@_frank_
danke für den Hinweis - das hab ich als Anfänger nicht gewusst.
Habe den Code nochmals abgeändert. Funktioniert auch prächtig.
Gruss
LingNeu

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to ControlCount - 1 do
  begin
    if ((Controls[i] is TButton) and (Controls[i].tag=1)) then
        begin
        TButton(Controls[i]).caption := 'Klick mich';
        end;
    if ((Controls[i] is TEdit) and (Controls[i].tag=1)) then
        begin
        TEdit(Controls[i]).Width  := 100;
        end;
end;
end;