Перебор объектов в цикле

[FearDog]

Такая проблема:
На форме 125 CheckBox'ов. Их Caption и Visible зависят от содержимого 4-х ListBox'ов. В данный момент реализован простой перебор:

procedure TForm1.PSCheck;
begin
  with form2 do
  begin
    with form3.ListBox1 do
    begin
      if count>0 then Begin
        CB1.Caption:=items[0];
        CB1.visible:=True;
      end else
      begin
        CB1.Checked:=false;
        CB1.visible:=false;
      end;

      if count>1 then 
      Begin
        CB2.Caption:=items[1];
        CB2.visible:=True;
      end else
      begin
        CB2.Checked:=false;
        CB2.visible:=false; 
      end;

      if count>2 then
      Begin
        CB3.Caption:=items[2];
        CB3.visible:=True;
      end else
      begin
        CB3.Checked:=false;
        CB3.visible:=false;
      end;
      .....

Можно ли как-нибудь запихнуть это все в цикл?
Заранее благодарен за советы.

[Stilet]

Я наверное скажу глупость, но...
Открой для себя CheckListBox.

[FearDog]

Попробуем=) спасибо