ficheros con array dinamico

[[Lepe]]

En el código asignas las variables, pero no veo donde se usan, así que no puedo saber para qué sirven y si puede eliminarse algunas.

De momento el combo10 y combo11 usan el mismo código y puede compartirse. En el inspector de objetos, para el combo11, elige la misma rutina que para el combo 10 y el código:

Código Delphi [-]
procedure TForm1.ComboBox10Change(Sender: TObject);
begin
// como sabemos que este evento está compartido
// para dos Combobox, el Sender siempre será
// un Tcombobox, por ello no pregunto, directamente
// hago el moldeo de tipos.

// PD: es bueno dejar una línea comentada diciendo
// que el evento se comparte para el combo10 y el 11
// eso te ayudará cuando necesites ampliar esta rutina

  case TCombobox(Sender).ItemIndex of
   -1:muro1:=0 ;
    0:muro1:=50 ;
    1:muro1:=25 ;
  end;
end;

Saludos