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
case TCombobox(Sender).ItemIndex of
-1:muro1:=0 ;
0:muro1:=50 ;
1:muro1:=25 ;
end;
end;
Saludos