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);
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;
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.