@Nils_13: Und warum zweimal den den Klassentyp abfragen? AS fragt intern nochmal mit IS nach...
Delphi-Quellcode:
procedure TfrmMain.FormCreate(Sender: TObject);
var i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TGroupBox then TGroupBox(Components[i]). ... ;
end;