Установить текст ComboBox при выборе

Я работаю над приложением, в котором у меня есть поле со списком с длинными текстовыми значениями. Поскольку текстовые значения большие (с точки зрения символов.. 20 или более), для отображения в поле со списком требовалось отображать первый символ после выбора из раскрывающегося списка. Как на изображении, отмеченном красным. если пользователь выбирает 3-й элемент 3 от 0,5 до 1,25 Небольшой , я должен отображать только 3в поле со списком.

Итак, я попробовал это

   sTheSelectedValue : string;

  procedure TForm1.ComboBox1Select(Sender: TObject);
  begin
   sTheSelectedValue:=TrimTextAndDisplay(ComboBox1.Text); //send theselected value
   ComboBox1.Text :='';                                   //clear the selection
   ComboBox1.Text:=sTheSelectedValue;                     //now assign as text to combo box   
   Button1.Caption:=ComboBox1.Text;                      //just show the new value on the button.
  end;


   function TForm1.TrimTextAndDisplay(TheText : string): string;
   var
   sTheResult : string;
     begin
        sTheResult :=copy(TheText,0,1); //extract the first value..
        Result     :=sTheResult;
     end;

Результат:

Кнопка, кажется, показывает правильное значение, но не выпадающий список.

я хочу получить 3в поле со списком, я не могу установить ComboBox1.Text:= может ли кто-нибудь сказать мне, как это сделать? вот так при выборе из поля со списком результат должен быть