Доброго времени суток, коллеги. Озадачился следующим вопросом, но красивое решение найти не могу. Есть CheckListBox1, ComboBox1. У них есть свойство Items.

code:
procedure TForm1.Load_in_CB(CB: TObject);
begin
  if CB is TComboBox then ...
  
  if CB is TCheckListBox1 then ...

  with CB do
    begin
      Items.AddObject(...)
      ...                   // - другие манипуляции с CB
    end
end;

Вопрос: Есть ли красивая возможность использовать with CB do, чтобы не ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83702