Viele Komponenten schneller in den Eigenschaften ändern

[LingNeu]

Hallo Zusammen,
vielen Dank für Eure unermüdlichen Vorschläge. Habe alle durchprobiert. Die eine Lösung von NamenLozer gefällt mir sehr gut und funktioniert bis jetzt auch bestens. Habe nur noch eine Klammer machen müssen, sonst kommt ein Error.
Besten Dank nochmals an alle
LingNeu

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
// Test mit 4 Buttons, 3 Edits, dabei sind Button1 bis Button3 mit tag=1 versehen
// Button4 hat tag= 0 und bleibt unberührt
var i: integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if ((Components[i] is TButton) and (components[i].tag=1)) then
        begin
        TButton(Components[i]).caption := 'Klick mich';
        end;
    if ((Components[i] is TEdit) and (Components[i].tag=1)) then
        begin
        TEdit(Components[i]).Width  := 100;
        end;
end;
end;

@inherited
die Idee finde ich gut. Leider hab ich die Sachen an unterschiedlichsten Stellen usw. Daher ist es vielleicht doch etwas aufwändiger.
Trotzdem - merci!