Schleife mit variablen Komponentennamen?

[Dani]

Hi,

Delphi-Quellcode:

var
 i: Integer;
 cBox: TComponent;
begin
 for i:=0 to 10 do
  begin
   cBox := Form1.FindComponent('ComboBox'+IntToStr(i));
   If cBox <> nil then 
    (cBox as TComboBox).ItemIndex := 0;
  end;
end;