[dec]

Hola,

No explicas mucho, pero, a ver si esto puede darte una idea. Vamos, al menos, de como yo haría algo que me imagino parecido a lo que precisas...

Inicia una nueva aplicación en Delphi y en el formulario sitúa dos "ComboBox". En el siguiente código se emplean los eventos "FormCreate" del formulario y "OnChange" del primero de los "ComboBox".

Código Delphi [-]
 const
   itemsCombo: array[0..1] of string = ('pares', 'impares');
   pares: array[0..4] of integer = (2, 4, 6, 8, 10);
   impares: array[0..4] of integer = (1, 3, 5, 7, 9);
 
 // Evento FormCreate
 //
 procedure TForm1.FormCreate(Sender: TObject);
 var
   i: integer;
 begin
   for i := 0 to High(itemsCombo) do
     ComboBox1.Items.Add(itemsCombo[i]);
   ComboBox1.ItemIndex := 0;
   ComboBox1.OnChange(Self);
 end;
 
 // Evento "OnChange" de ComboBox1
 //
 procedure TForm1.ComboBox1Change(Sender: TObject);
 var
   i: integer;
 begin
   ComboBox2.Items.Clear;
   case ComboBox1.ItemIndex of
     0: begin
          for i := 0 to High(pares) do
            ComboBox2.Items.Add(IntToStr(pares[i]));
        end;
     1: begin
          for i := 0 to High(impares) do
            ComboBox2.Items.Add(IntToStr(impares[i]));
        end;
   end;
 end;

Resumiendo: se llena con los elementos correspondientes el primero de los "ComboBox", se selecciona el primero de estos y se dispara el evento "OnChange".

En dicho evento (del primer "ComboBox") se mira por el índice del elemento seleccionado en el "ComboBox", de tal manera que si este es 0, inicializamos y llenamos el segundo "ComboBox" con números pares. Si el índice es el 1 asignamos al segundo "ComboBox" números impares.