Asignar 2 combobox a una variable

[ecfisa]

Hola DOS.

No termino de entender la relación del gráfico con el código.

Pero volvamos a los ComboBox, ahora aparecen en escena dos nuevos ComboBox2 y ComboBox3, que supongo también están creados en tiempo de diseño.

El siguiente código no debería existir:

Código Delphi [-]
procedure TForm20.BitBtn4Click(Sender: TObject);
var cbHoras, cbMinutos: TComboBox;  (*   ¡ Esto no corresponde !  *)
begin
   ...

Al declarar cbHoras y cbMinutos como variables locales al método BitBtn4Click, este trabajará sobre estas y no sobre las homónimas creadas en tiempo de diseño. Provocando de ese modo una excepción ya que las locales no han sido instanciadas.

Por otro lado, la asignación de los combos debería hacerse:

Código Delphi [-]
procedure TForm20.BitBtn4Click(Sender: TObject);
begin
  cbHoras.Items.Assign(ComboBox2.Items);
  cbMinutos.Items.Assign(ComboBox3.Items);
  ...

Eso independientemente del buen o mal funcionamiento que pudiera tener el código que lo sucede.

Saludos