UpperCase/LowerCase a ComboBox

[MaMu]

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


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

[MaMu]

SOLUCIONADO

Me respondo a mi mismo


case ComboBox8.ItemIndex of
0: begin
ComboBox9.CharCase:=ecUpperCase;
end;
1: begin
ComboBox9.CharCase:=ecLowerCase;
end;
end; //del case

[neuronic]

ok, gracias