[Grunch]

В комбобоксе 2 айтема

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  CheckListBox1.Items.Clear;
  if ComboBox1.ItemIndex=0 then
  begin
    CheckListBox1.Items.Add('11');
    CheckListBox1.Items.Add('12');
  end;
  if ComboBox1.ItemIndex=1 then
  begin
    CheckListBox1.Items.Add('21');
    CheckListBox1.Items.Add('22');
  end;
end;