UpperCase/LowerCase a ComboBox
 

yo estoy tratando de cambiar de mayúsculas a minúsculas el texto seleccionado de un ComboBox, pero no me funciona:

Código Delphi [-]
 
procedure TMutaciones.ComboBox8Change(Sender: TObject);
begin
  case ComboBox8.ItemIndex of
    0:  begin
          ComboBox9.Text:=UpperCase(ComboBox9.Text);
        end;
    1:  begin
          ComboBox9.Text:=LowerCase(ComboBox9.Text);
        end;
  end; //del case
end;

Como puedo hacerlo en runtime?

Saludos

SOLUCIONADO

Me respondo a mi mismo

Código Delphi [-]
 
  case ComboBox8.ItemIndex of
    0:  begin
          ComboBox9.CharCase:=ecUpperCase;
        end;
    1:  begin
          ComboBox9.CharCase:=ecLowerCase;
        end;
  end; //del case

ok, gracias