Código Delphi [-]case cmbNivel.itemindex of a y d:lblNivel.caption:='Uno'; . . end;
case cmbNivel.itemindex of a y d:lblNivel.caption:='Uno'; . . end;